TMemo в файл

[photozaz]

уже была такая тема, но ее закрыли -- http://www.programmersforum.ru/showthread.php?t=7406
так вот еще вопрос по этой теме::
вот например::

if fileexists('C:/MyText.txt') then
Memo1.Lines.SaveToFile('C:/MyText.txt');

-- если файл существует, то выполняется сохраниние.. как сделать чтоб всплывал вопрос(если данный файл уже существует) "перезаписать данный файл или нет???"..

[photozaz]

фсе... разобрался :::

procedure TForm1.Button1Click(Sender: TObject);
begin
if fileexists('C:/MyText.txt') then
if MessageDlg('Перезаписать файл?',
    mtConfirmation, [mbYes, mbNo], 0) = mryes then
  begin
    Memo1.Lines.SaveToFile('C:/MyText.txt');
    MessageDlg('Выполнено', mtInformation,
               [mbOk], 0);

end;