Formular wird nicht gefunden

[Rumpi]

Hi,

Delphi-Quellcode:

        frmTemp := (Application.FindComponent(sTemp) as TForm);
        //*****************************************************
        // geht das ??? 
        if Not Assigned( frmTemp ) then
          for j := Application.ComponentCount - 1 downto 0 do
          begin
            cmpTemp := Application.Components[j];
            if (cmpTemp is TForm) and
               Uppercase(TForm(cmpTemp).Name) = Uppercase(sTemp) then
            begin
              frmTemp := TForm(cmpTemp);
              break;
            end;
          end;
        //*****************************************************

        if frmTemp = nil then begin

mfg Rumpi