Ich habe gerade mal das hier ausprobiert:
Delphi-Quellcode:
procedure TForm1.DoPaint(aCanvas: TCanvas);
var R:TRect;
s:AnsiString;
t:TTextFormat;
begin
s:='asd';
r:=rect(10,12,130,150);
T:=[tfCenter];
aCanvas.TextRect(R,S,[tfCenter]);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
DoPaint(Canvas);
end;
Keine Probleme, anscheinend fehlt mir Quelltext. Du könntest das Projekt ja mal zippen und anhängen, vielleicht sieht man da mehr.