Ввод и вывод изображения из базы данных

procedure TForm2.AddFiles(filename: string);
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
//OpenDialog1.FileName;
 Image1.AutoSize:=False;
Image1.Stretch:=Enabled;
Image1.Width:=201;
Image1.Height:= 201;
end;
 
 
procedure TForm2.BitBtn1Click(Sender: TObject);
var i:integer;
begin
Form1.ADOQuery1.Post;
close;
i:=Form1.DBGrid1.DataSource.DataSet.RecordCount;
  Form1.StatusBar1.Panels.Items[0].Text:='Êîíòàêòû: ' +IntToStr(i);
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;
 
  AddFiles(OpenDialog1.FileName);
  With Form1.ADOQuery1 do begin
  Connection:=Form1.ADOConnection1;
   form1.ADOQuery1.edit;
  form1.ADOQuery1.Insert;
  if Form1.DBGrid1.fields[15].Text = '' then
    DBEdit15.Field.Text:=OpenDialog1.FileName
  else
   // Form1.DBGrid1.fields[15].Clear;
    Post;
  end;
end;
 
 
procedure TForm2.BitBtn4Click(Sender: TObject);
var  nullfield: TField;
     ds: TDataSet;
     j:integer;
begin
     nullfield:=nil;
     ds:=Form1.DBGrid1.Datasource.dataSet;
   for j:=0 to ds.fields.count-1 do
        if ds.fields[j].IsNull then
        begin
            nullfield:=ds.fields[j];
        end;
    BitBtn4.Enabled:=(nullfield=nil);
    if nullfield<>nil then
      begin
        Image1.AutoSize:=False;
        Image1.Stretch:=Enabled;
        Image1.Width:=201;
        Image1.Height:= 201;
              if form1.DBGrid1.fields[15].Text <> '' then
                Image1.Picture.LoadfromFile(Form1.DBGrid1.fields[15].Text)
              else
                Image1.Picture:=nil;
              end;
                                    end;
 
end.