[esquerda21]

Sobre el Sender he observado que es mejor así.

Procedure tform1.onmousedown(......)

with (sender as tform1) do

begin
// lalala
end;