procedure TForm1.Button1Click(Sender: TObject);
var
fileStr : TfileStream;
st1 : Tstringstream;
begin
if OpenPictureDialog1.Execute then
begin
try
st1:=Tstringstream.Create('');
fileStr:= TfileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
st1.CopyFrom(filestr,filestr.Size);
qryMaster.Edit;
TBlobField(qryMaster.FieldByName('Pic2') as TBlobField).LoadFromStream(st1);
finally
freeandnil(fileStr);
freeandnil(st1);
end;
end;
end;