[YVitaliy]

Код:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 const img='IMAGE';
       lbl='LABEL';
var n:string;
begin
n:=copy(Tcomponent(sender).Name,6,maxint);
if FindComponent (lbl+n)<>nil then begin
Tlabel(FindComponent (lbl+n)).Color:=clred;
end;
end;

6 - число можно узнать из Length(img), я это упустил, приняв что Image имеют именно такие имена. Если имена иные, то это число будет другое.