var
tmpstream : TMemoryStream;
myopendialog :Topendialog;
begin
tmpstream := TMemoryStream.Create;
myopendialog := Topendialog.Create(nil);
if myopendialog.Execute then myopendialog.Files.SaveToStream(tmpstream);
tmpstream.Position := 0;
query1.close;
query1.SQL.Clear;
query1.SQL.add('insert into product(pic) values(:pic)');
Query1.ParamByName('pic').LoadFromStream(tmpstream,ftBlob);
query1.ExecSQL ;