Delphi_SolutionTime

procedure TForm1.Button1Click(Sender: TObject);
var
  start, freq, stop: int64;
begin
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(start);

  // ALL PROGRAM PROCESSES

  QueryPerformanceCounter(stop);
  ShowMessage(FloattostrF((stop - start) / freq, ffNumber, 10, 3)); // Solution time will be shown upon program completion.
end;