Вот написал программу которая выводит на екран время телефона.Но есть одна загвоздка : после отрисовки картинок они так и остаются тойсть показывает то время которое появилося при запуске программи.Как можно зделать чтобы время менялось?
program Clock;
var
q,w:integer;
ss,z,x:string;
img1,img2,img3,img4,img5,img6,img7,img8,img9,img10,img11,img12:image;
begin
img12:=loadImage('/5.png');
img1:=loadImage('/6.png');
img2:=loadImage('/7.png');
img3:=loadImage('/8.png');
img4:=loadImage('/9.png');
img5:=loadImage('/im@ge.png');
img6:=loadImage('/rozdel.png');
img7:=loadImage('/0.png');
img8:=loadImage('/1.png');
img9:=loadImage('/2.png');
img10:=loadImage('/3.png');
img11:=loadImage('/4.png');
drawimage(img5,0,0);
drawimage(img6,110,166);
q:=getHour(getCurrentTime);
w:=getMinute(getCurrentTime);
if q=25 then q:=1;
if q=26 then q:=24;
if q=24 then q:=0;
z:=integertostring(q)+':';//+integertostring(w);
if w=0 then z:=z+'0';
if (w>=0)and(w<9) then z:=z+'0';
if w=0 then z:=z+'0';
z:=z+integertostring(w);
repaint;
if q=24 then q:=0;
if q=0 then begin
drawimage(img7,60,166);
drawimage(img7,85,166);
repaint;
end; if q=23 then begin
drawimage(img9,60,166);
drawimage(img10,85,166);
repaint;
end;
........
if q=1 then begin
drawimage(img7,60,166);
drawimage(img8,85,166);
repaint;
end;
if w=0 then begin
drawimage(img7,123,166);
drawimage(img7,148,166);
repaint;
end;
if w=1 then begin
drawimage(img7,123,166);
drawimage(img8,148,166);
repaint;
end;
........
if w=59 then begin
drawimage(img12,123,166);
drawimage(img4,148,166);
repaint;
end;
repeat
until GetKeyClicked = KE_KEY0 ;
end.
