Membuat File txt

procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(pchar(edit1.Text)) ;
if FileExists(Edit1.Text) then
ShowMessage('Save Berhasil') ;
end;