[Andorra 2d] Problem mit TPhysicalSprite und TSprite

[Adrian112]

Hallo,

mit diesem Code(Stammt aus der Physic demo von Andorra):

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Selected := AdSpriteEngine.GetSpriteAt(X,Y);
  if (Selected <> nil) and (Selected is TPhysicalSprite)  then
  begin
    dx := round(Selected.WorldX - X);
    dy := round(Selected.WorldY - Y);

    TPhysicalSprite(Selected).ActivateNeighbours;
    TPhysicalSprite(Selected).Active := false;
  end
  else
  begin
    Selected := nil;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Selected <> nil then
  begin
    Selected.X := X + dx;
    Selected.Y := Y + dy;
  end;

  CursorPosX := X;
  CursorPosY := Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Selected <> nil then
  begin
    TPhysicalSprite(Selected).Active := true;
  end;
    Selected := nil;
end;

verschiebe ich das Sprite. Ich will jetzt in einer INI Datei das Image des Selektierten TPhysicalSprite speichern. Mit diesem Code:
INI.WriteString('Objects', IntToStr(Objectcount)+'Type', Obj.Image.Name); // obj ist TPhysicalSprite kann ich nichts machen, weil selected (Obj = Selected(Selected = TSprite(sonst geht das Selectieren net))) keine Eigenschaft Image hat. Also denk ich mir tu ich halt Selected als TPhysicalSprite definieren. Das funktioniert aber nicht weil ich dann nicht diesen Code hier:
Selected := AdSpriteEngine.GetSpriteAt(X,Y); einsetzen kann, da die funktion GetSpriteAt(X,Y) nur das Sprite und nicht das PhysicalSprite an der Stelle ermittelt. Also funktionier das nicht mit dem umdefinieren. Was kann ich tun?