jpeg error #53 loading Stream from Datasnap - stream

Question

I have a datasnap server with a servermethod to load a stream, im getting jpeg error #53, my goal is get a thumbnail size, im getting the stream from BLOB fiel, load into a Bitmap object, then a create a thumbnail and convert that thumbnail to a stream back and send to the client
Error after loading the stream
I'm using
XE7, MSSQL, VLC Datasnap Server
Server Side
function TDSServerMethods.GetImage(proid, Width, Height: Integer; out ImgStream: TStream): Boolean;
var
Bitmap,Bitmap2: FMX.Graphics.TBitMap;
scale: Single;
T:TStream;
stream: TStream;
begin
Result := False;
ImgStream := nil;
WITH SPPROC do
begin
close;
ProcedureName := 'XXXXXX';
Parameters.Clear ;
Parameters.CreateParameter('#ID', ftInteger,pdInput, 0,proid );
Open;
Result := recordcount > 0;
end;
try
T := SPPROC.CreateBlobStream(SPPROC.FieldByName('file'),TBlobStreamMode.bmRead);
T.Seek( 0, TSeekOrigin.soBeginning );
T.Position := 0;
Bitmap := FMX.Graphics.TBitMap.Create;
Bitmap.LoadFromStream( T );
scale := RectF(0, 0, Bitmap.Width, Bitmap.Height).Fit(RectF(0, 0, 200, 200));
Bitmap2 := Bitmap.CreateThumbnail(Round(Bitmap.Width / scale), Round(Bitmap.Height / scale));
stream := TMemoryStream.Create;
stream.Position := 0;
Bitmap2.SaveToStream(stream);
stream.Seek( 0, TSeekOrigin.soBeginning );
stream.Position := 0;
ImgStream := stream
except
Exit(False);
end;
end;
Client Side
procedure TFrmMain.Button3Click(Sender: TObject);
var
AImageStream: TStream;
jp: TJPEGImage;
begin
if ( DSServerMethods.GetImage(1038,0, 0, AImageStream)) then
begin
jp := TJPEGImage.Create;
AImageStream.Position := 0;
jp.LoadFromStream( AImageStream ); **here i got jpeg error #53**
Image1.Picture.Assign( jp );
end;
end;
in this line is the error jpeg error #53
jp.LoadFromStream( AImageStream );
But, if i use this server function all work fine
function TDSServerMethods.GetImage(proid, Width, Height: Integer; out ImgStream: TStream): Boolean;
var
Bitmap,Bitmap2: FMX.Graphics.TBitMap;
scale: Single;
T:TStream;
stream: TStream;
begin
Result := False;
ImgStream := nil;
WITH SPPROC do
begin
close;
ProcedureName := 'XXXXXX';
Parameters.Clear ;
Parameters.CreateParameter('#ID', ftInteger,pdInput, 0,proid );
Open;
Result := recordcount > 0;
end;
try
ImgStream := SPPROC.CreateBlobStream(SPPROC.FieldByName('file'),TBlobStreamMode.bmRead);
except
Exit(False);
end;
end;