Процедура для Delphi
var
timestart,timestop: TTimeStamp;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
timestart := DateTimeToTimeStamp(Now);
Application.Run;
timestop := DateTimeToTimeStamp(Now);
MessageBox(0,PChar(Format('Программа работала %d миллисекунд'...