Printer.Canvas.TextOut... rechtsbündig???

[beanbear6]

Hallo Profis,
ich hab ein großes Problem... Ich muss Text und aus einer Datenbank
entsprechende Zahlenfelder mit TextOut ausgeben. Hab folgenden Code:

Delphi-Quellcode:

TextOut(100,170, DateToStr(Date) + '               ' + TimeToStr(Time));
TextOut(100,200, '------------------------------------------');
With Table3 do begin
   first;
   while not eof do begin
     TextOut(50, Zeile, IntToStr(Fieldbyname('Menge').asInteger));
     TextOut(150,Zeile, Fieldbyname('Artbez').asstring);
     TextOut(400,Zeile, FloatToStrF(Fieldbyname('ges').asfloat, fffixed,9,2));
     next;
     zeile := zeile + 30;
   end;
end;

Nun dachte ich mit IntToStr, oder FloatToStrF(....) könnte ich die Zahlen
rechtsbündig ausgeben. Kann mir jemand helfen??? Ich komm einfach nicht
weiter.
Danke für jeden Tip...
Gruß Beanbear6

[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]