[san-46]

В этом коде рекурсивный вызов метода Create.

Код:

constructor TPlayerSprite1.Create(AParent: TSprite);
begin
  with TPlayerSprite1.Create(MainForm.Dxspriteengine.Engine) do begin
    PixelCheck := True;
    Image := MainForm.DXImageListAnime1.Items.Find('obichniy');
    x:=10;
    y:=200;
    Width := Image.Width;
    Height := Image.Height;
  end;
end;