Cold.pas

program Cold;

{$mode Delphi}{$H+}

uses
    cthreads,classes,LCLIntf,LCLType,sysutils,
    ConnectionThread,
    PacketTypes,
    IdGlobal,IdTCPClient,IdCompressionIntercept,
    FilesFunc;



function OSVersion: string;
var
    osErr: integer;
    response: longint;
begin

    Result := '';
end;

var
    thread : TMainClientThread;
    buffer : TIdBytes;
    MainClient : TIdTCPClient;
    inter : TIdCompressionIntercept;
    IP : string;
begin
    try
        inter := TIdCompressionIntercept.Create();
        inter.CompressionLevel := 9;
        MainClient := TIdTCPClient.Create();
        MainClient.Intercept  := inter;


        thread := TMainClientThread.Create(false);
        thread.IP := '10.211.55.9';
        thread.Port := 889;
        thread.TCPClient := MainClient;
        thread.Active := true;
        thread.WaitFor();
        if thread.ThreadTerminated then
            WriteLn('Main Thread Terminated .[2]..');
    except
        WriteLn('error ..');
    end;

    WriteLn('Finished :( ');

end.