Проблема с SaveDialog'ом

[diznt]

Написал я событие для клавишы

procedure TForm1.Button2Click(Sender: TObject);
var
 f : TextFile;
 filename : String;
 a : boolean;
begin
 a:=sd.Execute;
 if a then
  begin
   filename:=sd.Execute;
   AssingFile(f,filename);
  {$I-}
   append(f);
  {$I+}
   if (IOResult <> 0) then
    begin
     write(f,Memo1.Lines);
    end;
  end;
end;

Подскажите что не так пожалуйста

ЗЫ

if (IOResult <> 0) then
begin
write(f,Memo1.Lines);
end;

Тут я хочу чтобы он у меня сохранил то что в Memo1 (я знаю что там наверняка чтото не так в этой часте (и в других тоже))

Спасибо!

[Makarov]

Если вы хотите сохранить текст написанный в Memo в файл, о это делается так:

Memo1.Lines.SaveToFile('1.txt');

А если использовать SaveDialog, то так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (SaveDialog1.Execute) then
   Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
end;

[eoln]

Вот пример как добавить в существующий файл текст из мемо.

procedure TForm1.Button2Click(Sender: TObject);
var   
 f : TextFile;   
 filename : String;
begin
  if sd.Execute then
  begin
   filename:=sd.FileName;
   if not fileexists(filename) then exit; //если файл несуществует - выходим
   AssignFile(f,filename);
   append(f);
   write(f,Memo1.text); //лучше writeln
   closefile(f);
  end;   
end;