Delphi - Crear TEdits en tiempo de ejecución

Tengo una tabla donde cojo un campo i al pulsar un botón me crea una serie de fichas con cada uno de los nombres de este campo como puedo hacerlo para que me salga a cada ficha los TEdits correspondientes a la información de los otros campos relacionados con la ficha?
Muchas Gracias

Para hacer lo de las fichas hago esto:

Tengo un PageControl en el formulario i se llama PageControl1

procedure TForm1.Button4Click(Sender: TObject);
begin
BaseDeDades.TZPati.Open;
BaseDeDades.TZPati.First;
While not BaseDades.TZPati.Eof do
Begin
With TtabSheet.Create(PageControl1) do
Begin
PageControl := PageControl1;
Name := BaseDades.TZPati.FieldByName(‘NomPati’).AsString;
Caption := BaseDades.TZPati.FieldByName(‘NomPati’).AsString;
end;
BaseDades.TZPati.Next;
end;
Form1.Button4.Visible := False;
end.

Para crear un control e tiempo de ejecucion se hace lo mismo ( o casi):
procedure TForm1.Button1Click(Sender: TObject);
var ed : TEdit;
begin
ed := TEdit.Create(Self);
ed.Parent := form1;
ed.SetBounds(50,50,80,20);
... // aqui mas propiedades del Edit
end;