extern "C" __declspec( dllimport ) __stdcall BOOL EP_TrialExecutionTime( int* Total, int* Left );

function EP_TrialExecutionTime( var Total, Left : Cardinal) : boolean; stdcall;

Public Declare Function EP_TrialExecutionTime Lib "enigma_ide.dll" (ByRef Total As Long, ByRef Left As Long) As Byte

public class Enigma_IDE
{
    [DllImport("enigma_ide.dll", CallingConvention = CallingConvention.StdCall)]
    public static extern bool EP_TrialExecutionTime(ref Int32 Total, ref Int32 Left);
}

uses 
  enigma_ide; // the module contains a definitions of Enigma API

procedure TfrmMain.tmTimerTimer(Sender: TObject);
var
  lpSystemTime : _SYSTEMTIME;
  dwMinutesTotal : Cardinal;
  dwMinutesLeft : Cardinal;
begin
  // Here we set current time to edit
  GetSystemTime(lpSystemTime);
  eGlobalTime.Text := format('%.2d:%.2d:%.2d', [lpSystemTime.wHour, lpSystemTime.wMinute, lpSystemTime.wSecond]);
  // Set the execution time
  inc(dwExecutionTime, tmTimer.Interval);
  eExecutionTime.Text := format('%.2d:%.2d:%.2d', [(dwExecutionTime div (60*60*1000)) mod 24, (dwExecutionTime div (60*1000)) mod 60, (dwExecutionTime div (1000)) mod 60]);
  // Get total and left minutes of execution
  if EP_TrialExecutionTime(dwMinutesTotal, dwMinutesLeft) then
  begin
    eStatus.Color := clGreen;
    eStatus.Text := 'OK';
    eTotalExecutionTime.Text := IntToStr(dwMinutesTotal);
    eLeftExecutionTime.Text := IntToStr(dwMinutesLeft);
  end else
  begin
    // The trial parameters were not set
    // Shows the red color of trial status
    eStatus.Color := clRed;
    eStatus.Text := 'UNUSED';
  end;
end;

#include "include/enigma_api.h" // the module contains a definitions of Enigma API
#pragma link "include/enigma_ide.lib"

void __fastcall TfrmMain::tmTimerTimer(TObject *Sender)
{
  _SYSTEMTIME lpSystemTime;
  unsigned long dwTotal;
  unsigned long dwLeft;
  // Show global time
  GetSystemTime(&lpSystemTime);
  eGlobalTime->Text = Format("%.2d:%.2d:%.2d", ARRAYOFCONST((lpSystemTime.wHour, lpSystemTime.wMinute, lpSystemTime.wSecond)));
  // Show execution time
  dwCounter += tmTimer->Interval;
  eExecutionTime->Text = Format("%.2d:%.2d:%.2d",
                                ARRAYOFCONST((
                                        dwCounter / (60 * 60 * 1000) % 24,
                                        dwCounter / (60 * 1000) % 60,
                                        dwCounter / 1000 % 60
                                )));

  // Get trial status
  if (EP_TrialExecutionTime(&dwTotal, &dwLeft))
  {
    // Set total and left minutes values to labels
    Label2->Caption = Format("%d", ARRAYOFCONST(((int)dwTotal)));
    Label3->Caption = Format("%d", ARRAYOFCONST(((int)dwLeft)));
    // Set maximal value to ProgressBar
    pbTrial->Max = (int)dwTotal;
    pbTrial->Position = (int)dwLeft;
    // Set trial status
    eStatus->Text = "OK";
    eStatus->Color = clGreen;
  } else
  {
    eStatus->Text = "UNUSED";
    eStatus->Color = clRed;
  }
}