Einer Variable nen Wert zuweisen je nachdem wo die Maus ist!

[sakura]

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;

......