[marcoszorrilla]

Prueba con este código:

 procedure TForm1.Button1Click(Sender: TObject);
 var
   I: Integer;
 begin
   for I := 0 to Screen.CustomFormCount-1 do
 	if Screen.CustomForms[i].Name ='Form2' then
 	ShowMessage('Está cargado');
 end;

Un Saludo.