[zxcvvbbnmm]

Нужно, чтобы фото отображалось после добавления button1 загрузка производится через button5

Код:

procedure TForm1.Button1Click(Sender: TObject);
    begin
     try
     if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='') then
     exit;
      ADOQuery1.Insert;
       ADOQuery1.FieldByName('fio').AsString:=Edit1.Text;
     ADOQuery1.FieldByName('oz').AsInteger:=StrToInt(Edit2.Text);
     ADOQuery1.FieldByName('фото').AsString:=Edit3.Text;
          DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
       Edit1.Clear;
        Edit2.Clear;
         Edit3.Clear;
         except
          on e:Exception do end;
 
          end;
 
    procedure TForm1.Button5Click(Sender: TObject);
    begin
    if OpenPictureDialog1.Execute then
 
            DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
            edit3.Text:=OpenPictureDialog1.FileName;
    end;
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 try
  Edit1.Text:=ADOQuery1.FieldByName('fio').AsString;
    Edit2.Text:=IntToStr(ADOQuery1.FieldByName('oz').AsInteger);
    Edit3.Text:=ADOQuery1.FieldByName('фото').AsString;
 
    except   on e:Exception do  end;
    end;