Fórum Carregar um Formulário #336439

Olá a todos.
Preciso criar Form´s dinamicamente.
Hoje uso conforme abaixo:
===========
procedure TFrPrincipal.C1040Click(Sender: TObject);
begin
try
FrC1040 := TfrC1040.Create( nil );
FrC1040.ShowModal;
finally
FrC1040 := Nil;
end;
end;

Imagine 3 botões no Form cada botão com o nome
FRC1040
FRC1050
FRC1060, respectivamente

Quando pressionado o botão FRC1040, enviar a string como parametro para uma rotina (procedure padrão), que montaria conforme abaixo, mas usando o parametro recebido...
====
try
FrC1040 := TfrC1040.Create( nil );
FrC1040.ShowModal;
finally
FrC1040 := Nil;
end;

Abraços a todos
Neto