Восстановить подключение после socket error 10054 connection reset by peer

[ZBEP]

Здравствуйте!
Писал в других темах, но мне не ответили, на других сайтах примерно также, в поиске решения этой проблемы не нашел.
Есть программа подключающаяся к серверу через idIRC:
При разъединении интернета (например отсоединить кабели, затем подсоединить кабель), вылазиет ошибка:

socket error 10054 connection reset by peer

И в дальнейшем при попытке заново подключится к серверу, эта ошибка вылазиет повторно! Для того что бы подключиться к серверу приходится перезапускать программу.

Простой пример:
На форме 2 кнопки, 1 RichEdit и 1 idIRC, вот весь код:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdException,IdStack, IdContext, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdCmdTCPClient, IdIRC, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    IdIRC1: TIdIRC;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure IdIRC1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
begin
idIRC1.Host:='66.230.224.106';
idIRC1.Port:=20260;
idIRC1.Connect();
end;
except
on E:EIdSocketError do
richedit1.text:=richedit1.text+'Ошибка'+sLineBreak;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
try
idIRC1.Disconnect();
except
on E:EIdSocketError do
richedit1.text:=richedit1.text+'Ошибка'+sLineBreak;
end;
end;

procedure TForm1.IdIRC1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
begin
try
richedit1.Lines.Add(AStatusText);
except
on E:EIdSocketError do
richedit1.text:=richedit1.text+'Ошибка'+sLineBreak;
end;
end;
end;

end.

Вместо

socket error 10054 connection reset by peer

теперь пишет в RichEdit1 слово "Ошибка", и при попытке повторно связаться с сервом после подключения интернета, в RichEdit1 добавляется слово "Ошибка", и опять же спасает только перезапуск программы.

Что мне сделать, что бы после дисконнекта я мог не перезапуская программу, заново подключиться к серверу?

Зарание спасибо!

RAD Studio 2010 Version 14.0.3615.26342
Update 5
Indy 10.5.5

[ZBEP]

Все проблема решена. После дисконнекта добавить:

idIRC1.Socket.Close;

Тогда прога закроет соединение и в дальнейшем можно будет успешно подключиться к серверу.
Пример:

procedure TForm1.Button4Click(Sender: TObject);
begin
try
begin
idIRC1.raw('quit');
idIRC1.Disconnect();
idIRC2.raw('quit');
idIRC2.Disconnect();
end;
except
on E:EIdSocketError do
begin
idIRC1.Socket.Close;
idIRC2.Socket.Close;
end;
end;
end;

П.с.
spasius, Спасибо!

[Dux]

та же проблема, только IdHTTP1.Socket.Close; что-то не помогает...

[Pearl777]

Dux, Если вам для idhttp то:
idHTTP1.Disconnect;