[marcoszorrilla]

Código Delphi [-]
function TFormPpal.IsLoaded(Nombre: string): Boolean;
var b: boolean;
    i: integer;
begin
b := false;
for i := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].Name = Nombre then
       b := true;
IsLoaded := B;
end;

Nota: El código anterior es mejorable mediante un bucle while (nunca repeat)