Ejemplo desde los llamantes:
Código Delphi
[-]
Application.CreateForm( TForm4,Form4);
Form4.Visualizar(Self);
Ejemplo del LLamado:
Código Delphi
[-]procedure TForm4.Visualizar(Sender: TObject);
begin
Label1.Caption := TForm(Sender).name ;
ShowModal;
end;
Saludos