[GRAY_WOLF]

Сообщение от kizup

Дык в предыдущих постах сам у тя спрашивал))
Ну если надо то вот тебе код:

t := getCurrentTime;
days := 31-getDay(t);
hour := 23-getHour(t);
min := 59-getMinute(t);
seco := 60-getSecond(t);
DrawString(IntegerToString(days)+' дней и '+IntegerToString(hour)+':'+IntegerToString(min)+':'+IntegerToString(seco), xp1+5, yp+(texTHeight*2)); 


Вот как то так)) Всё работает)

Кстати, Igor, добавил вывод свободной памяти и общей памяти. А вот время выполнения операции я хз как сделать

Держите доработанную прогу.
Жду отзывов.

memclean.clean;i:=GetRelativeTimeMs;j:=0;
     repeat
     ... //что либо делаем
     until GetRelativeTimeMs - i > 1000;//выход из цикла через секунду

примерто так...