Procedure Vremya;
var
time: integer;
s: string;
begin
time := GetCurrentTime;
s :=''+ GetDay(time)+ '_'+(GetMonth(time)+1)+ '_'+GetYear(time)+' ';
if GetHour(time) <10 then s :=s+ ' '+ GetHour(time)+':';else s :=s+''+GetHour(time)+':';
if GetMinute(time) <10 then s:=s+'0'+GetMinute(time);else s:=s+''+GetMinute(time);// то что тебе нужно
Font(0);DrawString(s, wi/2 - textwidth(s)/2, 47);
Repaint;
end;
100% рабочий код. День, месяц, год, время.