[Amigo888]

Ну и самый правильный вариант поступить так:

program NewProject;
var
time:integer;
text: string;
b: string;
begin
time := getCurrentTime;
text := '' + getYear(time);
b := Copy(text, 2, 4);
DrawText(b, 15, 103);
repaint;    
delay(2000);
end.