Alguien sabe porqué no funciona o cómo hacer funcionar el siguiente código?
Código Delphi
[-]
Procedure TForm1.Label1MouseMove(Sender:TObject);
begin
if (Sender = Label1) then showmessage('Fue sobre Label1');
if (Sender = Label2) then showmessage('Fue sobre Label2');
end;
Es decir: Entrar al procedimiento entra cuando muevo sobre uno de los dos labels, pero parece que luego de entrar al procedimiento la Variable "Sender" se olvida de us valor y no entra en ninguno de los "IF". ¿Alguien sabe porqué?