Hola de nuevo.
Se me escapó, que tal vez tengas otros tipos que jpg...
Proba de esta forma:
Código Delphi
[-]
...
uses jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
Pic : TPicture;
begin
if OpenPictureDialog1.Execute then
begin
Pic := TPicture.Create;
try
Pic.LoadFromFile(OpenPictureDialog1.FileName);
DAtaSet.Edit;
DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
finally
Pic.Free;
end;
end;
end;
Saludos.