El evento OnActivate

[andres1569]

Sobre el uso del casting o moldeado de tipos sucede que no es una operación tan rápida de ejecutar, así que si vas a hacer varias operaciones con ese objeto moleado, es mejor utilizar el with, tal como dices:

with (sender as tform1).Canvas do
begin
MoveTo (3, 3);
LineTo (8, 9);
Rectangle ( ...);
...
end;

Otra forma de moldear tipos es así:

with TForm1(sender) do ...

y para asegurarte siempre de que no metes la pata y que el objeto que moldeas es realmente de dicho tipo, puedes utilizar el operador is:

if Sender is TForm then
  with (Sender as TForm1) do ...