Pobieranie tylko godziny i minuty

Jak pobrać czas systemowy w formie zawierajacej tylko godziny i minuty ???

A więc na Form wstaw:
--->Label
--->Timer
i do timera przypisz taki kod:
var G, M, S, Ms : integer;
begin
DecodeTime(Time, G, M, S, Ms);
Label1.Caption:=IntToStr(g) +(' : ') +IntToStr(m);

i powiedz czy o to biegalo??

Nie zapomnij dodać moduł SysUtils do uses

urbi u mnie twoja procedurka nie działa jakis bład wyskakuje
ale to działa git !
var
data:TDateTime;
h,m,s,ms : word;
begin
data:=now;
decodetime(data, h,m,s,ms);
label1.caption:=IntToStr(h)+' : '+IntToStr(m);

(var G, M, S, Ms : integer;)-> chyba powinno byc word zamiast Integer :):)

Zenek jedziemy !!!

Zgadza sie bo ja sie bawilem i mowie ciekawe czy bedzie dzialac jak zmiennie na integer. i zapomnialme zmienic przed wrzuceniem na form ;).o wlasnie a powiedz mi co to jest za zmienna word??

Word jest to $0000..$FFFF, liczby całkowite dodatnie coś jak integer, tyle że dużo mniejszy i NIE MA ujemnych

A na integer da sie jakos taki program zrobic z godzina??

Zawsze robiłem z integerem i jakoś działało...

[code]
Function TimeStr:String;
Begin
Result:=Copy(TimeToStr(Now),0,5);
End;
[/code]

Ale macie problema, jeżeli Label1 ma wyświetlić czas to:
label1.caption:=formatdatetime('hs',now);

h - godzina (jeden digit, hh dwa digity zawsze)
n - minuta (jw)
s - sekunda (jw)
now - czas aktualny