Можно ввести переменную типа TTime. И увеличивать по таймеру каждую секунду.
Code
var T:TTime;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
T := T + StrToTime('0:1');
Caption := TimeToStr(T);
end;
Выводиться будет в строку заголовка. Думаю не составит особой проблемы переделать под свои нужды.
Немного пояснений:StrToTime - преобразовать из строку в TDateTime. Есть обратная функция TimeToStr. Использую для вывода.
Для общего развития: Есть тип TDate. Думаю не требуется объяснять для чего он нужен, итак из названия ясно - дата. Есть аналогичные функции StrToDate и DateToStr.
Ну раз уж затронули тему о времени и датах расскажу как получить текущую дату и время ПК. Используем следующую функцию:
Code
function Date: TDateTime;
Пример использования:
Code
ShowMessage(DateToStr(Date));
Аналогично и со временем:
Code
ShowMessage(TimeToStr(Time));
) отрыл отличную книгу по компонентам и их свойствам. http://programmersclub.ru/book/ 100 компонентов Delphi. Codelab, если знаешь или имеется в наличие что-то похожее, дай ссылку плиз.
