[twix47]

Всем доброго времени суток.
Помогите пожалуйста с проблемой, сегодня решил попробовать передавать файлы с помощью TCP.
Написал небольшой сервер значит для передачи файла, а клиент собственно файл принимает.

Вот код сервера:

Код:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
stream:TmemoryStream;
connection:TidTCPServerConnection;
t:String;
begin
 t:=AThread.Connection.ReadLn;
 if t = 'get' then
 begin
 stream:=TMemoryStream.Create;
 stream.LoadFromFile('1.txt');
 connection.WriteStream(stream,true,true,0);
 stream.Clear;
 stream.Free;
 end;
end;

Вот клиента:

procedure TForm1.Button1Click(Sender: TObject);

begin
IdTCPClient1.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 stream:TMemoryStream;
begin
 IdTCPClient1.WriteLn('get');
 stream:= TMemoryStream.Create;
  IdTCPClient1.ReadStream(stream);
  stream.Position :=0;
  stream.SaveToFile('qwerty.qw');
   stream.Clear;
   stream.Free;
   IdTCPClient1.Disconnect;
end;

Admin: Пользуемся тегами, иначе последеют санкции!
-----------------------------------------------------------------------

Знающие люди, подскажите пожалуйста, почему файл не передается? Вроде ж все правильно... Подскажите пожалуйста где ошибка.
Заранее благодарен!