Fórum Estou tentando trazer uma imagem, mas tá dando erro!!! #40008

procedure TfrmLogoTipo.LocalizarClick(Sender: TObject);
var 
Stm: TStream;
begin
Stm := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
try
   Stm.Position := 0;
   IBSQL_logoTipo.SQL.Text := ´INSERT INTO CLINICA (logoTipo) VALUES (:logoTipo)´;
      IBSQL_logoTipo.ParamByName(´logoTipo´).LoadFromStream(Stm);
      IBSQL_logoTipo.ExecQuery;
   finally
   Stm.Free;
   end;
   dmDados.Transacao.CommitRetaining;
end;