[Ankor]

А как нужно в событии - (procedure TForm1.Image1MouseLeave(Sender: TObject); ) прописать код?

Код:

procedure TForm1.Image1MouseLeave(Sender: TObject);
const img='Image';
       lbl='Label';
var n:string;
pos:integer;
begin
pos:=length(img)+1;
n:=copy(Tcomponent(sender).Name,pos,maxint);
if FindComponent (lbl+n)<>nil then begin
Tlabel(FindComponent (lbl+n)).Color:=clRed;
end;
end;

Так только верхняя строка на красный меняется, как сделать, чтобы все строчки соответствующе работали?