Передача потока с использованием idtcpServer

[Lvenok]

Добрый вечер.
Подскажите пожалуйста, в чем тут проблема..
смысл: На стороне сервера имеется картинка, ее надо передать клиенту и отобразить..Данные вроде бы передаются, а картинка на клиенте не отображается..

serv:tIDTCPServer;
client:tIDTCPClient;

код сервера:


procedure TForm1.ServExecute(AThread: TIdPeerThread);
var stream:tmemorystream;
begin
stream:=TMemoryStream.Create;
image1.picture.bitmap.savetostream( stream);
AThread.Connection.OpenWriteBuffer;
AThread.Connection.WriteStream(stre am);
AThread.Connection.CloseWriteBuffer ;
AThread.Connection.Disconnect;
end;


Клиент:

procedure TMainTest.Button1Click(Sender: TObject);
var stream:tmemorystream;
begin
client.Connect;
stream:=TMemoryStream.Create;
Client.ReadStream(stream);
client.Disconnect;
Image1.Picture.Bitmap.LoadFromStrea m(stream);
end;


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