Application.Terminate влечет Exception EInvalidPointer. Грабли ?

← →
megatrend © (2002-09-13 14:18) [0]

Есть программулина - небольшой чат с участием компонентов NMMsg и NMMsgServ. Вот кусок кода из нее, который вызывает исключение. Никак не могу понять, в чем может быть проблема?

procedure TForm1.ExitMenu1Click(Sender: TObject);
begin
if MessageDlg("Выходим?",mtInformation,[mbYes,mbNo,mbCancel],3)=mrYes then
begin
// здесь нужно проверить, не сменилась ли дата
CheckCurrDate();
LogMemo.Lines.Add("Завершение работы Astalk "+TimeToStr(now()));
try
LogMemo.Lines.SaveToFile(Application.ExeName+"
"+DateToStr(now())+".txt");
except
end;
ShowMessage("Сейчас будет try Application.Terminate;
except end; ");
// исключение возникает после этого сообщения, причем без try-except тоже
try
Application.Terminate;
except
end;
end;
end;

А исключение таково :

Сначала первый messagebox

(astalk.exe - Ошибка приложения)
Исключение неизвестное программное исключение (0x0eedfade) в приложении по адресу 0х77e8f142.

Сразу за ним - второй messagebox

(Application error)
Exception EInvalidPointer in module astalk.exe at 000044BD.
Invalid pointer operation.

Как бы это дело побороть? Кода немного, ошибиться вроде негде. Может какой компонент кривой? На форме еще есть компонент (недавно добавил) TrayNotifyIcon.

← →
megatrend © (2002-09-16 17:20) [1]

← →
Mike Kouzmine (2002-09-16 17:35) [2]

А форм1 главная?

Да.

Application.Terminate влечет Exception EInvalidPointer. Грабли ? Найти похожие ветки