Crear Form en tiempo de ejecución

[mjjj]

Amigos, tengo un problemita, estoy creando un TForm tipo fsMDIChild en tiempo ejecucion con el siguiente código.

Código Delphi [-]
var form: Tform;
begin
Form := FindComponent ('Proveedores') as TForm;
if Assigned (Form) then Form.BringToFront
else
begin
    Form := Tproveedoresform.Create(self);
    Form.Name := 'Proveedores';
end;

Hasta aquí todo bien, el problema surge cuando desde otro form (puede ser el principal o algún otro), quiero ejecutar alguna acción en el form creado en ejecucción.

Al parecer no se cual es el nombre del form creado, a pesar que tiene el nombre proveedores... Como puedo identificar el nombre real??

Es este el problema?

Gracias.

[mjjj]

Un ejemplo cuando ocurre el problema, este codigo ejecutado desde un boton del formulario principal, el dmMainForm

Código Delphi [-]
uses proveedores; {nombre del formulario que se crea en tiempo de ejecucion}
.
.
.
 
procedure Tmainform.Button1Click(Sender: TObject);
begin
proveedoresform.Button1.Caption := 'hola';
end;

Que podrá ser?
Como lo resuelvo?

Gracias

[ecfisa]

Hola mjjj.

Probá de este modo:

Código Delphi [-]
type
  TfrmMain = class(TForm)
   ...
  private
    function GetForm(AName: string): TForm;
  ...
  end;
...

implementation
...

function TfrmMain.GetForm(AName: string): TForm;
var
  i: Integer;
begin
  Result:= nil ;
  for i:= MDIChildCount-1 downto 0 do
    if MDIChildren[i].Name = AName then
      Result:= MDIChildren[i];
end;
...

LLamada de ejemplo:

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  GetForm('Form2').Caption:= 'Nuevo Caption';
  GetForm('Form2').Color:= clLime;
  ...
end;

Saludos.