Run-time error в среде Lazarus

[Ustas]

Vista, Lazarus 1.4.0.
После завершение работы своей программы, запущенной из под оболочки Lazarus, возникает ошибка (см. вложение) в процедуре:

Код: Выделить всё

procedure TCustomForm.Moved(Data: PtrInt);
begin
  if WindowState = wsNormal then
  begin
    FRestoredLeft := Left;
    FRestoredTop := Top;
  end;
end;

При запуске программы самостоятельно - ошибок нет.

[zub]

Попытка какихто действий с формой после ее уничтожения. То что в лазаре или отдельно - без разницы, без лазаря вы просто не видите эту ошибку.