wie schon geschrieben: einfach AutoSize auf False.
und anstelle von
Delphi-Quellcode:
[...]
left := 70;
top := 10 * i;
width := length(text) * font.Size;
height:= font.Height -1;
[...]
würde ich dir
Delphi-Quellcode:
[...]
SetBounds(70, 10 * i, length(text) * font.Size, font.height - 1);
[...]
empfehlen. Denn wenn du Left, top, width oder height setzt wird intern auch nix anderes gemach als SetBounds aufgerufen. Das heißt bei deiner Variante wird intern 4 mal SetBounds aufgerufen.