Как узнать системное время, и отделить его?

[TUberwer]

Всем привет. Есть такая задача: Нужно знать, совпадает ли время в edit'ах(их два, один edit - часы, второй edit - минуты) с системным временем.

var
today : TDateTime;
begin
today := Time;
if(часы = StrToTime(Edit1.Caption)) and (минуты = StrToTime(Edit1.Caption)) then
begin
 // остальной код
end;
end;

Как такое сделать? то есть мне нужно отделить часы, минуты, секунды. секунды убрать вообще, а минуты и часы использовать в разных местах.

[northener]

DecodeTime

[grominfo]

Или так

var
s1,s2:string;
begin
s1:=formatdatetime('nn', now);
s2:=formatdatetime('hh', now);

[Stilet]

TUberwer

Смотря как время введешь. Может лучше компонент TDateTimePicker взять? Поставить у него DateTimeKind в dtkTime и получишь Эдит для времени.