Hi,
mach es lieber selbst mit dem Canvas.
WriteLn hilft Dir da bestimmt auch weiter.
for i := 0 to ListBox1.Items.Count -1 do
begin
WriteLn(File, i); //Nicht genauso schreiben, musst Du schon selber rausfinden
end;
Sollte Dich weiter bringen.
Grüsse, Daniel