С помощью какой функции можно узнать который сейчас час

[Djonik]

procedure TForm1.Button1Click(Sender: TObject);
var
h : TDateTime;
begin
h := Time;
if час=10 then ...
end;

[ОДИНОЧЕСТВО В СЕТИ]

uses ... DateUtils;
... 
Hour := HourOf(time);
    Min := MinuteOf(time);
....

[russian-stalker]

Ну что-то типа того:

var
s: string;
h: integer;
begin
s := timetostr(time);
if s[2]<>':' then
h := strtoint(s[1] + s[2]) else
h := strtoint(s[1]);
if h=10 then
showmessage('ff');
end;

[Djonik]

Спасибо!!!

[AIst]

var
chas,min,sec,msec:Word;
begin
...
DecodeTime(GetTime,chas,min,sec,msec);
...

chas - часы
min - минуты
sec - секунды
msec - милисекунды