Delphi - Ayuda

¿Alguien me podria decir como puedo guardar en un archivo .txt algo escrito en un tEdit?
Gracias por adelantado

procedure TForm1.Button1Click(Sender: TObject);
var
f : TextFile;
begin
try
if (SaveDialog1.Execute) then
begin
AssignFile(f, SaveDialog1.FileName+'.txt');
ReWrite(f);
WriteLn(f,Edit1.Text);
end;
if FileExists(SaveDialog1.FileName+'.txt') then
begin
closeFile(f);
end;
except
Abort;
end;
end;

Se me olvidó decirte que debes agregar un componente SaveDialog de la paleta Dialogs, al mismo ponle lo siguiente:
Propiedad DefaultExt = *.txt
Propiedad Filter = Archivos de textos|*.txt