Ja? Ok, habe das zwar gerade ausprobiert und bei mir kommt keine Leerzeile. Aber wenn ihr meint...
Edit:
Wie wäre es hiermit?
Delphi-Quellcode:
SaveDialog.Filename := ChangeFileExt(SaveDialog.Filename, '.txt');
AssignFile(F, SaveDialog.Filename);
try
Rewrite(F);
Write(F, TrimRight(Listbox.items.text));
finally
CloseFile(F);
end;