Mit Mouse über Image dann Label rot

[Christian18]

Ich habe keine Idee wie ich das machen soll.

Rot mache ich den Label mit:

Delphi-Quellcode:

procedure TFMain.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clRed;
end;