Also hier mal die Umsetzung von Christians Lösung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
str:TStringList;
begin
str:= TStringlist.Create;
str.LoadFromFile('C:\test.txt');
str.Delete(str.Count-1);
str.SaveToFile('C:\test.txt');
str.Free;
end;