Wenn dir das zu kompliziert ist, könntest du auch TStrings verwenden, das ist ganz einfach:
Delphi-Quellcode:
var List: TStrings;
begin
List := TStringList.Create;
try
List.Add(Edit1.Text);
List.SaveToFile({Pfad + }'name.txt');
finally
FreeAndNil(List);
end;
Mfg