[esquerda21]

Hola de nuevo Forereos.

He creado ventanas DMIChild mediante codigo osea:

var
Form1: TForm1;
rafa: tform1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
rafa:= tform1.CreateNew(self);
rafa.FormStyle:= fsMDIChild;
rafa.OnActivate:= pinta();
end;

procedure pinta();
begin
//lalala
end;

end.

Me da un herror de incopatible TNotifyEvent an Procedure.

Como lo puedo hacer?

Gracias de antemano