не передается картинка TCPClient/Server

[Lokos]

Здравствуйте.
Пытаюсь делать так
клиент

 ft:=TJpegImage.Create;
 mt:=TMemoryStream.Create;
 ft.Assign(TBlobField(Dm.FIBDS.Fields[53]));
 ft.SaveToStream(mt);
 mt.Position:=0;//не совсем уверен что эта строчка нужна пробовал и с ней                             и без нее
 DM.ITCPC.IOHandler.Write(mt,mt.Size,true);
 mt.Free;
 ft.Free;

Сервер

         mt:=TMemoryStream.Create;
         ft:=TJpegImage.Create;
         AContext.Connection.IOHandler.ReadStream(mt);
         ft.LoadFromStream(mt);
         mt.Free;
         unit1.Form1.image1.picture.bitmap.assign(ft);
         ft.Free;
         flagfoto:=false;
         s.Clear;
         s.WriteString('ok_all');
         s.Position:=0;
         Acontext.Connection.IOHandler.Write(s,s.Size,true);

ошибка следующая
No data to read

[Lokos]

картинку передал
Изменил сервер так

  mt:=TMemoryStream.Create;
         ft:=TJpegImage.Create;
         AContext.Connection.IOHandler.ReadStream(mt);
         mt.position:=0;
         ft.LoadFromStream(mt);
         mt.Free;
         unit1.Form1.image1.picture.bitmap.assign(ft);
         ft.Free;
         flagfoto:=false;
         s.Clear;
         s.WriteString('ok_all');
         s.Position:=0;
         Acontext.Connection.IOHandler.Write(s,s.Size,true);

Появилась ошибка обращения к несуществующему адресу но думаю причина в другом