function CheckForm(FrmName: String): Boolean;
var
I: Integer;
begin
for I := 0 to Screen.FormCount-1 do
begin
if UpperCase(Screen.Forms[I].Name) = UpperCase(FrmName) then
begin
// 폼 있다 ^^
Result := True;
Exit;
end;
end;
// 폼 없다 ^^;;
Result := False;
end;
if FindComponent('폼명') = nil then
//폼이 현재 생성되지 않았습니다.
else
//폼이 생성되었습니다.