procedure wm_ends(var T:TWMEndSession);message WM_QUERYENDSESSION;

---------
procedure TForm1.wm_ends(var T: TWMEndSession);
begin
//Делаем все что надо для завершения программы
     t.EndSession:=true; //говорим что можно выключить или перегрузить комп
     t.Result:=1;
end;

procedure Delay(ADelay : Cardinal);
var EndTime : Cardinal;
Begin
EndTime := GetTickCount + ADelay;
repeat
Application.ProcessMessages;
until GetTickCount >= EndTime;
end;

var
  Before, After: DWord;
begin
Before:=GetTickCount;
{
Действия
}
After:=GetTickCount;
After:=After-Before;
Label1.Caption:=IntToStr(After);

label2.Caption:=IntToStr(value*StrToInt(label1.Caption))