Fórum Gravar Imagem no Firebird #209198

Pessoal estou com esta dúvida e preciso resolver com certa urgência tanto que postei a mesma mensagem no Forum de Delphi e interbase assim quem sabe vem mais rápido a resposta

Tenho o código abaixo para gravar a imagem só que esta apresentando a mensagem de erro citada em Letra azul, na linha que esta em vermelho
já coloquei a unit JPEG na Uses


[color=darkblue:e0510cd779]Not enough actual parameters [/color:e0510cd779]

procedure TFrmCadProduto.Button1Click(Sender: TObject);
var
Stm: TStream;
begin
Stm := TMemoryStream.Create;
try
(ImagemProduto.Picture.Graphic as TJpegImage).SaveToStream(Stm);
Stm.Position := 0;
with Dmprincipal.qry_Produto do
try
SQL.Text := ´INSERT INTO Produto (Str_CodigoProduto, Mem_ImagemProduto) VALUES (:Str_CodigoProduto, :Mem_ImagemProduto)´;
//Transaction.StartTransaction;
ParamByName(´Str_CodigoProduto´).Asstring := ´1111´;
[color=red:e0510cd779]ParamByName(´Mem_ImagemProduto´).LoadFromStream(Stm); [/color:e0510cd779]
ExecSql;
finally
DmPrincipal.transacao.CommitRetaining;
end;
finally
Stm.Free;
end;
end;