Moin litsa,
mit PlainText := true dürfte das so funktionieren:
Delphi-Quellcode:
var
sLine : string;
begin
if cText.Lines.Count = 0 then exit;
fs := TFileStream.Create(....);
try
sLine := cText.Lines[cText.Lines.Count-1]+#13#10;
fs.Position := fs.Size;
fs.Write(sLine[1],length(sLine));
finally
FreeAndNil(fs);
end;
end;
Vielleicht könntest Du den Filestream auch als Feld im Formular anlegen, und im OnCreate erzeugen (OnDestroy freigeben), so dass Du ihn nicht immer neu erzeugen musst.