MSSQL Server 2000 and Blobs

Hi!
I am using this sentence to store blob into
the MSSQL Server 2000 from Delphi5

 with Query1 do
  begin
   SQl.Add('Insert into mytable values (:ID,:mImage)');
   ms:=TMemoryStream.Create;
   ms.LoadFromFile(OpenDialog1.FileName);
   Params[0].AsInteger:=StrToInt(Edit1.Text);
   ParamByName('mImage').LoadFromStream(ms,ftBlob);
   ExecSQL;
  end;

I am saving jpeg but the blob doesn't save whole, only part
is saved

can anybody help me
Thank you
    Vojtech Nadvornik

ps the structure of table: ID:Integer and mImage:Image