if (trim(edit1.Text)<>'') and (not image1.Picture.Graphic.empty) then
begin
with adoquery1 do
begin
sql.Clear;
sql.Add('insert into pic values(:a,:b)');
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Parameters[1].Assign(image1.Picture.graphic);
//adoquery1.Parameters[1].LoadFromStream(tmpstream);两种方式都可以,mssql肯定没问题
ExecSQL;
sql.Clear;
sql.Add('select * from pic');
open
end;
end;