Блог программистов

 
procedure TFKart.DBImage1Click(Sender: TObject);
begin
   if not DM.OPDialog1.Execute then exit;
   DM.DSKart.Edit;
    TBlobField(DM.DSKart.FieldByName('PICTURES')).LoadFromFile(DM.OPDialog1.FileName);
end;