Socket Error 10060

[romeo32russ]

Здравствуйте, друзья
Создал программку тестер, которая после завершения теста отправляет файл с ответами на сервер. Имея 2 компьютера под рукой, пытаюсь осуществить данное действие.

1-ый компьютер, сделал как сервер, создал на нем новый проект добавил в него IdFTPServer добавил в него настроки:
_http://rghost.ru/26492141

procedure TFormServer.FormCreate(Sender: TObject);
begin
i:=0;
IdFTPServer.Active:=True;
end;
procedure TFormServer.IdFTPServerStoreFile(ASender: TIdFTPServerContext; const AFileName: string; AAppend: Boolean; var VStream: TStream);
begin
i:=i+1;
VStream := TFileStream.Create('C:\11\' + AFileName+IntToStr(i), fmCreate);
end;

на 2-ом компьютере, сам тестер, на нем добавлен IdFTP с настройками:
_http://rghost.ru/26492911

procedure TForm1.otpravka();
var FS: TFileStream;
begin
IdFTP.Host := '192.168.0.100';
IdFTP.Port :=  2000;
IdFTP.Username:='user';
IdFTP.Password:='user';
idFTP.Connect;
FS := TFileStream.Create(Path, fmOpenRead);
IdFTP.Put(FS, 'otveti', false);
FS.Free;
if IdFTP.Connected then IdFTP.Disconnect;
end;

На обоих компьютерах Windows 7 и Code Gear RAD Studio 2009, ping 192.168.0.100 проходит на ура, в чем проблема не могу понять.
Надеюсь на вашу помощь, спасибо за внимание

[romeo32russ]

неужели ни кто не знает?(