Komponenten

[choose]

Wenn ich Deine Fragmente richtig überflogen haben, geht es Dir um Passagen dieser Art:

Delphi-Quellcode:

procedure TForm1.BauerMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
mousex := a1.left;  // <-- a1 soll durch den jeweiligen namen ersetzt werden von 
mousey := a1.top;   //     der komponente die es aufruft. 
end;

Schau einmal in der OH nach den Operatoren is und as. Wahrscheinlich solltes Du damit schon eine Lösung hinbekommen. Darüber hinaus solltest Du einfach ein biscchen hier im Forum suchen, Lösungen für die mehrfache Verwendung derselben Ereignisbehandlungsroutine wurden schon häufiger diskutiert...