Zamkniecie programu po..?

Mam problem a własciwie dwa!!.
1.Otóż jak wyświetlic czas do zamkniecia programu w minutach?? w sekundach to idzie chyba tak:
var
I : Integer = 300;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := 'Do zamkniecia programu zostało sekund: ' + IntToStr(I);
Dec(i);
If I = 0 then Close;

end;
2.Co zrobic aby program zamknął się po 30 minutach np i już sie nie otworzył!!.

Ustaw jakąś wartośc w rejestrze i sprawdzaj przy uruchamianiu programu, jeżeli jest ustawiona to zamykaj program.

Dokładnie przykład czegoś takiego widziałem na tej stronie!! Szukać sie nie chce??
http://4programmers.net/view_faq.php?id=38 - jak zablokować ponowne uruchomienie
http://www.4programmers.net/download.php?id=283 - przykładowy kod źródłowy

2.Co zrobic aby program zamknął się po 30 minutach np i już sie nie otworzył.

Wstaw Timerka, ustaw Interval na ile tam chcesz i w zakładce Events clickaj dwa razy na pole On Timer wpisz Application.Terminate;
Chyba o to chodziło?

TOMASH nie jest zbyt bystry... mozna to zrobic ale muszisz podzielic ile ma sekund 30 minut potem pomnozyc *1000 wiec zastanow sie... a po drugie wstaw albo zrob stoper bedziesz mial...

TOMASH nie jest zbyt bystry... mozna to zrobic ale muszisz podzielic ile ma sekund 30 minut potem pomnozyc *1000 wiec zastanow sie...

Kompletnie nie rozumiem Ciebie, przecież 30 minut = 1800000 milisekund. Chyba trzeba mnożyć, a nie dzielić.

a po drugie wstaw albo zrob stoper bedziesz mial..

?? A co to jest TTimer?

już sie nie otworzył!!

Ściągnij sobie komponent: http://www.4programmers.net/programmes/delphicomp/jo.zip