for i := 0 to Screen.FormCount - 1 do
begin
if (Screen.Forms[i].ClassType == WForm.classType) then
begin
FormExists := True;
break;
end;
end;