Sender :TObject geht nicht als Zeiger?

[soup]

Hi! Hab ein ich sag mal "code-kosmetisches" Problem:

- Es geht um ein Schachspiel
- Das "Schachbrett" besteht aus schwarzen und weißen Quadrat-TShapes,
- Dem OnMouseMove-Event jedes shapes ist der Aufruf der Prozedur MouseMoveOverShape zugeordnet
- Beim Ausführen der Prozdedur (d.h. wenn die maus sich auf ein "neues" Feld bewegt) soll ein Label den Namen des Feldes anzeigen. Die Felder sind entsprechend benannt (A1, B1,....)

Die Prozedur sieht wie folgt aus (und funktioniert so auch):

Delphi-Quellcode:

procedure TForm1.MouseMoveoverShape(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var POverShape  :^TShape; //ein Zeiger auf das Shape-Objekt über dem sich die Maus befindet
begin
  POverField := @Sender; //Dem Zeiger wird die Adresse des "Sender", also des "Auslösers" der Prozedur zugeordnet
  FieldNameLabel.Caption := POverField.Name; //in einem Label wird der Name des Objekts, das über den Zeiger referrenziert wird ausgegeben
end;

Das funktioniert einwandfrei, aber wie ich es auch versuche, ohne den (in meinen Augen) "Umweg" über den Pointer POverField geht es nicht!
müsste ich mir nicht die Deklaration des ^TShape-Pointers sparen können? Schliesslich wird der Prozedur doch mit Sender :TObject eine Referenz auf die aktivierende Shape-Objekt-Instanz übergeben, oder nicht?
Aber egal was ich mache...

Delphi-Quellcode:

FeldLabel.Caption := Sender.Name;   // -->undeclared identifier 'Name'
FeldLabel.Caption := ^Sender.Name;  // -->missing Operator or Semicolon
FeldLabel.Caption := Sender^.Name;  // -->Pointer type required
FeldLabel.Caption := Sender.Name^;  // -->undeclared identifier 'Name'
FeldLabel.Caption := @Sender.Name;  // -->undeclared identifier 'Name'

...es will nich gehen
Deshalb: Bitte helft mir!

das Problem ist bestimmt/hoffentlich ganz harmlos

Ihr müsst entschuldigen, falls es schon nen Thread dazu gibt, aber ne Suche nach "Sender :TObject" oder so is in dem Forum wohl eher aussichtslos

Danke!