Problemas con formularios

[santiago14]

Tengo el siguiente codigo...

//formulario 1
//ESTE FORMULARIO TIENE UN TEXTBOX
......
procedure form1.Button1Click(sender:tobject);
var
formu2:Tform2;
begin
formu2:=tform2.create(self);
formu2.showmodal;
formu2.free;
end;
....

//en el formu2
...
procedure formu2.button1Click(sender:tobject);
var i:integer;
begin
i:=100;
form1.textbox1.text:=intToStr(i); //AQUI ME DA EL ERROR
close;
end;
.....

La verdad es que no se porque aparece el error cuando quiero pasar el valor de la variable a la caja de texto que esta en el form1.
Agradeceria que me dieran una respuesta de que es lo que estoy haciendo mal y como solucionarlo.
Gracias.

[roman]

Probé tu código y no marca ningún error.

Especifica cuál es el error que te marca para que podamos ayudarte.

// Saludos