Свойства компонента Timer

[Merlin88]

Подскажите пожалуйста как в Timer сделать так чтобы миллисекунды были в секундах и минутах. Мне нужно чтобы по истечении 30 минут программа завершила работу, таймер должен быть виден. Я уже практически всё сделал, таймер виден, интервал поставил, но вот только видно вот так 00:29:179999. Как сделать чтобы было 30:00 или 00:30:00.Заранее спасибо!!!
Вот моя программа:

procedure TForm3.FormCreate(Sender: TObject);
begin
j:=180000;
Timer1.Enabled:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var
H,M,S:Integer;
begin
j := j - 1; // Отнимаем по секунде
// Тут вывод на экран
H := J div 360000; // часы
M := J div 6000; // минуты
S:=J-H-M; // секунды
Form3.Caption := IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S);
// Если время закончилось, то останавливаем таймер и показываем сообщение.
if j = 0 then
begin
Timer1.Enabled := False;
ShowMessage('Время истекло');
Button1.Click;
end;
end;
end.

Что нужно здесь исправить чтобы всё работала правильно

[Shouldercannon]

Как-то так

[s-andriano]

H := J div 3600; // часы
M := (J - H*3600) div 60; // минуты
S := J - H*3600 - M*60; // секунды

[Merlin88]

спасибо! всё заработало