Fórum Imagem no IB #43843

uses Jpeg;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
      begin
      IBQuery1.Edit;
      IBQuery1LOGOTIPO.LoadFromFile(OpenDialog1.FileName);
      IBQuery1.post;
      end;
end;