[roamer]

Вот такой код срабатывает :

Код:

function My_FormFind(FormName : string) : TForm;
Var
  Comp : TComponent;
begin
  Result:=nil;
  FormName:=trim(FormName);
  if length(FormName)>0 then begin
     Comp:=Application.FindComponent(FormName);
     if Comp<>NIL then begin
        if (Comp is TForm) then begin
           Result:=(Comp as TForm);
        end;
     end;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  FormX : TForm;
begin
  FormX:=My_FormFind('Form1');
  if FormX<>NIL then begin
     ShowMessage(FormX.Name);
  end;
end;