[marcoszorrilla]

Mira a ver si te vale con este truco.
Coloca un Timage y un Tedit.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Edit1.Text:='Dentro';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
edit1.Text:='Fuera';
end;

Un Saludo.