BLOB

  private
    { Private declarations }
    fS: TFileStream;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Image1Click(Sender: TObject);
var
  FileExt: string;
begin
  if OpenPictureDialog.Execute then
  begin
    FileExt := LowerCase(ExtractFileExt(OpenPictureDialog.FileName));
 
    if FileExt = '.bmp' then
    begin
      fS := TFileStream.Create(OpenPictureDialog.FileName, fmOpenRead);
       Image1.Picture.Bitmap.LoadFromStream(fS);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
if fS = nil then
  begin
    MessageBox(handle, PChar('Çàãðóçèòå êàðòèíêó'), PChar('Îøèáêà'),
      (MB_OK + MB_ICONINFORMATION));
    exit;
  end;
    with ADOTable1 do
    begin
      Insert;
        TBlobField(FieldByName('Ôîòî')).LoadFromStream(fS);
      Post;
      fS.Free;
    end;
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
 if not OpenPictureDialog1.Execute then exit;
      ADOTable1.Edit;
        TBlobField(ADOTable1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.FileName);
       ADOTable1.Post;
end;

procedure TForm6.LabeledEdit1Change(Sender: TObject);
begin
AdoTable1.filter:='Название='+QuotedStr(LabeledEdit1.Text) ; //ищем по полю "Название" в таблице
AdoTable1.Filtered :=true;
if length(LabeledEdit1.Text)=0 then
begin
AdoTable1.Filtered :=false;
end;
end;