Borland Delphi kod parçacığı (Borland Delphi code snippets)

var
  start,
  sonuc : TDateTime;
begin
  start := Now();
  .....;
  .....;
  sonuc := Now()-start;
  ShowMessage(
  'Süre     : ' +
            FormatDateTime('H', sonuc) + ' saat ' + //Hours
            FormatDateTime('N', sonuc) + ' dakika ' + //Minutes
            FormatDateTime('S', sonuc) + ' saniye ' + //Seconds
            FormatDateTime('Z', sonuc) + ' salise');  //Milliseconds
end;