System error. Code 1400

Witam.

"System error. Code 1400"

Mam problem z tymże błędem. (Czasem jeszcze Access Violation idzie) Wyskakuje mi przy tym kodzie:

procedure Tglowna.UsunPaneleHTML;
begin
  try
    Application.ProcessMessages;
    caption:= '1';
    caption:= (glowna.pobierz as TRamka).StatusBar11.Panels[0].Text;
    if Assigned((glowna.pobierz as TRamka).err_panel) then
      (glowna.pobierz as TRamka).err_panel.Free;
    caption:= '2';
    if Assigned((glowna.pobierz as TRamka).edytor) then
      (glowna.pobierz as TRamka).Edytor.Free;
  except
  end;
end;

Linijka z:

    if Assigned((glowna.pobierz as TRamka).err_panel) then
      (glowna.pobierz as TRamka).err_panel.Free;

System error. Code 1400 = Nieprawidłowy uchwyt okna.

Tyle to ja wiem. Tylko co mi to daje? Raczej niewiele. ;(

a glowna.pobierz nie zwraca nil'a?

W pamięci mam stworzony jeden obiekt typu Ramka, który właśnie jest przekazywany zamiast nil'a. Więc to odpada. Ale zastanawiałem się, czy Assigned przypadkiem nie zwraca True, kiedy obiekt już nie istnieje?

Bo on w sumie mógł być wcześniej już usuwany.

Zamiast uzywania Free stosuj FreeAndNil, pozwala uniknac wielu bledow

o. dzięki wielkie. Pomogło mi to ;)