Speichere in der Tag-Eigenschaft der Bilder den Wert, welchen Deine Variable erhalten soll und nutze folgenden Code. Funktioniert für beliebig viele Bilder/Komponenten.
Delphi-Quellcode:
procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Sender is TImage then
vBild := TImage(Sender).Tag;
end;
...
...