problemer med classes (inherited)

Jeg har et lille problem med en klasse. Jeg sidder og leger lidt med DelphiX, og jeg skulle meget gerne have ændret lidt på en function, som ser sådan her ud:

procedure TImageSprite.DoDraw;
var
  ImageIndex: Integer;
  r: TRect;
begin
  ImageIndex := GetDrawImageIndex;
  r := GetDrawRect;
  Image.Draw(FEngine.Surface, r.Left, r.Top, ImageIndex);
end;

Linjen "Image.Draw bla bla" vil jeg gerne have "lavet om" til Image.DrawRotate( bla bla). Det prøver jeg at gøre sådan her:

procedure TPlayerSprite.DoDraw;
var
  ImageIndex: Integer;
  r: TRect;
begin
  inherited ;

    Image.DrawRotate(MainForm.DXDraw.Surface,r.Left,r.Top,Image.Width,Image.Height,0,0.5,0.5,10);
end;

Det har absolut ingen effekt. Burde det ikke ændre linjen hvor den tegner (Image.Draw)? Eller har jeg bare misforstået noget? Hvad skal jeg gøre?