falls es wen interessiert: ich hab das ganze jetzt folgendermassen gelöst:
Delphi-Quellcode:
//Schriftgröße festellen
font.Name:='Courier New';
font.Size:=1;
repeat
if TextHeight('0') < feldbreite - 4 then font.Size:=font.size+1
else font.Size:=font.size-1;
until abs(TextHeight('0') - feldbreite) <= 4;
zumindest funktioniert es so. wenn jemand etwas besseres kennt bitte her damit.