Problem z połączeniem w tgglite

Pisząc ten temat starałem się wszystko objaśnić jak naj jaśniej.
Mam oto taki kodzik :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
    begin
    Label1.Font.Color:=clRed;
    Label1.Caption:='Podaj login !';
    end
  else if Edit2.Text = '' then
    begin
    Label1.Font.Color:=clRed;
    Label1.Caption:='Podaj haslo !';
    end
      else
      begin
        if  not TryStrToInt(Edit1.Text, login) then
         begin
         Label1.Font.Color:=clRed;
         Label1.Caption:='Podano zły login !';
         end
        else
        begin
        Label1.Font.Color:=clBlack;
        Label1.Caption:='Loguję...';
        Edit1.Enabled := False;
        Edit2.Enabled := False;
        GGLite1.GGInitHost('217.17.41.85', 8074);
        GGLITE1.Login:= login;
        GGLITE1.Password:= Edit2.Text;
        GGLITE1.GGLogon;
          end ;
       end ;
       if  GGLite1.gglogon = 0 then
       begin
       Label1.Caption:='ok !';
       end
       else
       begin
        Label1.Caption:='błąd !';
        end;
end;

I jest taki oto problem: Gdy wpisuje nieprawdziwe dane do editów pokazuje mi błąd czyli tak jak powinno być. Jednak gdy wpisuje prawidłowe dane program się zawiesza. Czasami gdy uruchomie prosto z delphi wyskakuje mi po pewnym czasie socket error 10059 chyba a gdy wcześniej klikne jeszcze raz buttona to socket error not conected. Ale widze w gg z 2 konta że na ułamek sekundy jednak łączy potem traci połaczenie. Dodam jeszcze że gdy usune

 if  GGLite1.gglogon = 0 then
       begin
       Label1.Caption:='ok !';
       end
       else
       begin
        Label1.Caption:='błąd !';

Wtedy normalnie łączy i wszystko działa. Wszystko zrobione na komponencie gglite.

ten skrypt loguje sie 2 razy... no i GGInitHost daj bez tych IP.. ta funkcja sama znajdzie IP/port

        GGLite1.GGInitHost('217.17.41.85', 8074);
        GGLITE1.Login:= login;
        GGLITE1.Password:= Edit2.Text;
        GGLITE1.GGLogon;
          end ;
       end ;
       if  GGLite1.gglogon = 0 then
       begin
       Label1.Caption:='ok !';
       end
       else
       begin
        Label1.Caption:='błąd !';
        end;
end;

zamien na:

GGLite1.GGInitHost;
GGLite1.Login := login;
GGLite1.Password := Edit2.Text;

if GGLite1.GGLogon = 0 then Label1.Caption := 'Ok!' else Label1.Caption := 'Blad!';