Помогите разобраться с лагами

Добрый день,вот пишу локальный чат,и

1кода прогу сворачиваеш в трей-давиш правой кнопкой мыши и ИНОГДА вместо контекстного меню вылазит ругательство "cannot focus window" или чтото вроде этого...Треем управляет компонента spTrayIcon из набора DynamicSkinForm...

2При нажатии кнопы выхода все ресурсы благоприятно уничтожаются,а ексешник висит в диспечере задач!И делфик неговорит о том,что прога завершила работу...


ExitProgram - boolean
при загрузке ExitProgram:=False;
В процедуре выхода:
ExitProgram:=True;
Application.Destroy;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
LastNames:String;
i:integer;
begin
if ExitProgram = true Then begin
CanClose := True;
end else begin
CanClose := False;
Application.Minimize;
end;
end;

Вот такие вот делишки,помогите чем можите плз...