DelphiX DrawAlpha ruckelt

[Flogo]

Tach Leutz
Ich hab versucht mit DrawAlpha zu faden:
http://www.delphipraxis.net/internal...ight=drawalpha
Aber leider geht die Geschwindigkeit dabei stark runter. Gibt es irgentne Möglichkeit das zu umgehen oder anders zu lösen
oder mach ich da was falsch:

Delphi-Quellcode:

procedure TMaskeItem.DoDraw;
begin
  Image.DrawAlpha(Engine.Surface, Bounds(Round(x), Round(y), Image.Width, Image.Height), 0, Alpha);
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]