procedure GetCurTimeStr(var string res) BEGIN Time tt; tt = CurrentTime; res = GetHour(tt); res = res & GetMinute(tt); RETURN; END;