[DELPHI] таймер

[Ant1Player]

задача такая: закрывать приложение через время, если приложение не запущенно то повторить запуск таймера, если запущенно то закрыть и включить опять таймер, короче цикл, у меня выходит если приложение открыто закрывается и запускатся заного таймер но если приложение не открыто то программа закрывается... как осуществить цикл?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if PostMessage(FindWindow(Nil, 'ICQ'), WM_QUIT, 0, 0) then
Timer1.Enabled := true;
end;

[Flame of Soul]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if FindWindow(nil, 'ICQ') <> 0 then //поиск окна
begin
ShowMessage('Окно найдено');
PostMessage(FindWindow(Nil, 'ICQ'), WM_QUIT, 0, 0); //закрываем
end
else
begin
ShowMessage('Окно Ненайдено');
Form1.Close; //выходим с приложения
end;
end;
доработаете как вам надо

[Ant1Player]

спасибо!

[Ant1Player]

а как найти и закрыть процесс, а не окно как в этом случае?