S:
cd S:\SoftGO\Soft\RUN\Tabel\
InOut.exe

S:
cd S:\SoftGO\Soft\RUN\Tabel\
InOut.exe 1

program InOut;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, ActiveX;

var ADO: TADOCommand;
    StrInOut: AnsiString;

  function GetComputer: AnsiString;
    var   dwI: DWord;
    begin
      dwI:= MAX_PATH;
      SetLength(Result,MAX_PATH+1);
      if GetComputerName(PChar(Result),dwI) then
        SetLength(Result,dwI)
      else SetLength(Result,0);
    end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  try
    CoInitialize(nil);
    if ParamCount()=0 then
      StrInOut:= '[ТабельВход]'
    else
      StrInOut:= '[ТабельВыход]';
    ADO:= TADOCommand.Create(nil);
    with ADO do begin
      ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;'+
        'Persist Security Info=False;Initial Catalog=dbReostat;'+
        'Data Source=FILESERVER';
      CommandText:= 'EXEC ' + StrInOut + ' ' + QuotedStr(GetComputer());
      Execute();
    end;
  finally
    ADO.Free();
    CoUninitialize;
  end;
end.