#pas
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

  PTIME_OF_DAY_INFO = ^TIME_OF_DAY_INFO;
  TIME_OF_DAY_INFO = record
    tod_elapsedt : DWORD;
    tod_msecs    : DWORD;
    tod_hours    : DWORD;
    tod_mins     : DWORD;
    tod_secs     : DWORD;
    tod_hunds    : DWORD;
    tod_timezone : Longint;
    tod_tinterval: DWORD;
    tod_day      : DWORD;
    tod_month    : DWORD;
    tod_year     : DWORD;
    tod_weekday  : DWORD;
  end;

  function NetRemoteTOD(Server: PWChar; var pBuffer: PTIME_OF_DAY_INFO): DWORD;
     stdcall; external 'NETAPI32.DLL';
  function NetApiBufferFree(pBuffer: Pointer): DWORD;
     stdcall; external 'NETAPI32.DLL';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  TOD: PTIME_OF_DAY_INFO;
begin
  if NetRemoteTOD('\\192.168.2.108', TOD) = 0 then
    try
      with TOD^ do
        ShowMessage(Format('Data %d %d %d Time %d:%d:%d',
                          [tod_day,
                          tod_month,
                          tod_year,
                          tod_hours - (tod_timezone div 60),
                          tod_mins,
                          tod_secs]));
    finally
      NetApiBufferFree(TOD);
    end else
      RaiseLastOSError;
end;

end.