Delphi - Codigo en OnCreate para cuando se pulse botón

Quiero poner un código en el evento oncreate del form que determine que cuando pulse un botón ocurran ciertas cosas. He estado probando pero no doy con el código.
Sé que se preguntarán por qué no pongo el código en el evento onclick del botón.

Sería algo así como:
begin

If button1. (onClick) then
do begin
tatata
tatata

end;
end;

Si alguien me puede decir el código correcto se lo agradezco.

Pues la verdad es que sí me pregunto por que no pones el código en el OnClik :P
Creo que lo que quieres hacer es asignar un OnClick al click de un botón. Debería ser así:

Button1.OnClick:=Procedure MiProcedure

Ten en cuenta que el evento debe estar relacionado con un procedimiento que tenga los mismos valores de entrada que el OnClick, es decir

procedure MiProcedure (Sender: TObjetc);

Saludos.