Wyświetlanie godziny w komponentach label

Chciałbym zrobić coś takiego, żeby wyświetlić godzinę, np. 1810 w 6 różnych labelach (zależy mi naprawde na 6 a nie 1). Jeśli wiecie jeszcze jak w identyczny sposób wyświetlić datę to też byłbym wzdzięczny :-) :-) :-)

Wrzuc Timera na forme i w onTimer daj:

var

I : Integer;

begin

 for

I:=0 to componentcount - 1 do
if components[i] is TLabel then
TLabel(components[i]).Caption := TimeToStr(now);

Albo stwórz labele dynamicznie w array of TLabeli odwołuj się do elemetów tablicy.

Data: DateToStr(Now);
Oba: DateTimeToStr(Now);

zwróć uwagę, że wszystkie trzy funkcje mają wersje przeciązone (od D7). w których możesz wymusić własny format daty/czasu, a nie krzystać z ustawionego w systemie. Jak to zrobić? The answer is: F1.