TNotifyEvent y TMouseEvent

[Caminante]

Para asignar un procedimiento al evento mousedown debe ser del mismo tipo en esta caso con los mismos parametros requeridos para es evento

procedure TForm1.MyMousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//Codigo
end;



Espero te sea util. Saludos