Crear formularios de forma dinamica

[istradlin]

Buenas a todos, estoy haciendo un proyecto en lazarus y me encuentro con un problema, tengo un boton y, al hacer clic sobre el quiero que se cree un formulario nuevo, el codigo es el siguiente:

 
var
Form3:TForm;
txt:Tedit;
i:Integer;
 
Begin
     Form3:=TFormCreate(Self);
     Form3.Caption:="hola";
     Form3.Show();
     while(i<20)
     begin
        txt:=Tedit.Create(Form3);
        txt.Caption:="Etiqueta";
        txt.Show();
        i:=i+1;
     end;
End;

Este codigo esta en el evento onclick del boton, el caso es que al ejecutar y pinchar en el boton se me abre el nuevo formulario, pero no se me carga ningun campo de texto, ademas, dentro del while tb queria crear un boton y asignarle un evento a ese boton.

Un saludo y gracias de antemano