program ProgSock;

{$APPTYPE CONSOLE}

uses
  SysUtils, forms, ScktComp;

type
  TCustomSrv = Class(TServerSocket)
  private
    fertig: boolean;
  public
    procedure OCC(Sender: TObject; Socket: TCustomWinSocket);
    procedure OCR(Sender: TObject; Socket: TCustomWinSocket);
  end;


var
  srv: TCustomSrv;

procedure TCustomsrv.OCC(Sender: TObject; Socket: TCustomWinSocket);
begin
   WriteLn('Connected');
   //fertig := true;
end;

procedure TCustomsrv.OCR(Sender: TObject; Socket: TCustomWinSocket);
var
  MSG: String;
begin
  WriteLn('-> '+Srv.Socket.ReceiveText);
end;

begin
  try
    application.initialize;
    application.run;
    Srv := TCustomSrv.Create(nil);
    Srv.Port := 3724;
    Srv.OnClientConnect := srv.OCC;
    Srv.OnClientRead := srv.OCR;
    Srv.Active := True;
    Srv.Open;
  except
    WriteLn('error');
  end;
  repeat
    //Writeln('WAITING FOR CONNECTION...');
    Sleep(1);
    application.processmessages;
  until srv.fertig;
end.