var
s: string;
begin
s:=timetostr(time);
if .... then .... else ... ;
....
....
end;