Cannot write/read BLOB's from paradox tables (query)

Hi everyone

I'm trying very hard to save some data in a blob field (paradox) can anyone
see what I'm doing wrong?

How can I verify if my blobdata is written in the or not , all other fields
is written correct.

type
   TRSBlockTypes = 58..84;
   TDefaultBlockPrio = array[TRSBlockTypes] of byte;

var
  SaveArray  :  TDefaultBlockPrio

const
  GblDefaultBlockPrio : TDefaultBlockPrio =
(5,5,2,2,5,1,5,5,5,2,3,3,1,2,1,2,1,5,5,1,1,1,5,2,5,2,2);

Now I try to save it in a blob (paradox tables via TQuery)

    try
         AMemoryStream := TMemoryStream.Create;
       try
         move(GblDefaultBlockPrio[low(TRSBlockTypes)],
SaveArray[low(TRSBlockTypes)], SizeOf(TDefaultBlockPrio));
         AMemoryStream.Write(SaveArray[low(TRSBlockTypes)],
SizeOf(TDefaultBlockPrio));

SapCnvNcrsQuery.ParamByName('DefaultPriorities').SetBlobData(@SaveArray[low(
TRSBlockTypes)], SizeOf(TDefaultBlockPrio));
     except
         on e : exception do showmessage(e.message);
     end;
     finally
       AMemoryStream.Free;
     end;

     SapCnvNcrsQuery.ExecSQL;

--- No error messages ---

Now I try to read it back

           try
               AMemoryStream := TMemoryStream.Create;

TBlobField(SapCnvNcrsQuery.FieldByName('DefaultPriorities')).SaveToStream(AM
emoryStream);
               if AMemoryStream.Memory <> nil then
               begin
                 Move(AMemoryStream.Memory, TempArray[low(TRSBlockTypes)],
SizeOf(TDefaultBlockPrio));
                 if TempArray[low(TRSBlockTypes)] > 0 then
showmessage('Yahoooo');
               end;
----- no  data

              (SapCnvNcrsQuery.FieldByName('DefaultPriorities') as
TBlobField).SaveToStream(AMemoryStream);
              if AMemoryStream.Size > 0 then
showmessage(inttostr(AMemoryStream.size));
------ no data

               if
(LoadFromBlob(SapCnvNcrsQuery.FieldByName('DefaultPriorities'),
AMemoryStream)) then begin
                    if AMemoryStream.Size > 0 then
showmessage(inttostr(AMemoryStream.size));
               end;
------ and no data

             finally
                AMemoryStream.free;
             end;

---- found on delphi3000

function LoadFromBlob(const AField: TField; const Stream: TStream): boolean;
var
  ResultStr: string;
  PResultStr: PChar;
begin
  Result := false;
  if (Assigned(AField)) and (Assigned(Stream)) then begin
    try
      ResultStr := AField.Value;
      PResultStr := PChar(ResultStr);
      Stream.Write(PResultStr^, Length(ResultStr));
      Stream.Seek(0,0);
      Result := true;
    except
    end;
  end;
end;

TIA
Henrik