Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOTable1.Insert;
if form1.OpenPictureDialog1.Execute then
form1.DBImage1.Picture.LoadFromFile(form1.OpenPictureDialog1.FileName);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOTable1.Post;
end;
Admin: Пользуемся тегами для оформления кода!
//Вот так всё работает!!!