var
fnm: String;
i: Integer;
tmpForm: TCommonCustomForm;
begin
tmpForm := nil;
for i :=0 to Screen.FormCount -1 do
begin
if Screen.Forms[i].Name = fnm then
begin
tmpForm := Screen.Forms[i];
break;
end;
end;
if tmpForm <> nil then
begin
tmpForm.Show;
end
else
begin
showMessage('No Class');
end;
end;