procedure TForm1.btnSaveClick(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MS : TMemoryStream;
begin
  MyJPEG := TJPEGImage.Create;
  try
    MyJPEG.Assign(imgPhoto.Picture.Graphic);
    MS := TMemoryStream.Create;
    MyJPEG.SaveToStream(MS);
    MS.Position := 0;
    qry.Close;
    qry.SQL.Add('insert into CasePerson (CaseID, PersonType, Name, Photo) values(''123'',''所有人'',''AndyLau'',:PhotoName)');
    qry.Parameters.ParamByName('PhotoName').LoadFromStream(MS);
    qry.Open;
    ShowMessage('图像保存成功');
  finally
    MyJPEG.Free;
  end;
end;
程序在编译的时候会提示 qry.Parameters.ParamByName('PhotoName').LoadFromStream(MS);
这一行有错,[Error] Unit1.pas(157): Not enough actual parameters,这是什么问题?