z.B. roundrect und das nötige handle

[Haegar]

hi, ich hab aus spass einfach mal nen ladebalken simpuliert, sprich mit timer einfach ne varible hochzählen (quasi den fortschritt) und dann den balken inner paintbox malen lassen, funktioniert alles super, aber nur solange ich nen normales rechteck nehme (drect:=rect(x1,y1,x1+f,y2))!
wenn ich beispielsweise roundrect nehme dann möchte er ja noch zusätzlich ein handle übergeben haben.
da dachte ich mit dem paintbox-canvas-handle is das eröledigt, aber da kommt dann immer ne fehlermeldung.

Delphi-Quellcode:

procedure Tform1.ladebalken(f:integer);
var drect:Trect;
begin
 drect:=roundrect(pb.Canvas.Handle,50,50,50+f,70,10,10);
 pb.Canvas.StretchDraw(drect,bild.Picture.Bitmap);
end;

tja da kommt die fehlermeldung:
Incompatible types: TRect and LongBool

was stimmt denn da nicht?

gruss haegar