Mira a ver si te vale con este truco.
Coloca un Timage y un Tedit.
Código:
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.