[Bonus]

Удалил лишний Unit, после попробовал разорвать связи с другими формами - в итоге накосячил очень сильно, много чего исправить удалось, но эту ошибку исправить не могу:
(First chance exception at $75713E28. Exception class EFOpenError with message 'Cannot open file "E:\Диплом\SANTRANS\Win32\Release\image\v.png" . Системе не удается найти указанный путь'. Process Project1.exe (536)

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm11.Button4Click(Sender: TObject); var piccc: string; begin Form10.ADOQuery1.Edit;   if Form11.OpenPictureDialog1.Execute then Form11.DBMemo1.Text:=Form11.OpenPictureDialog1.FileName;  piccc:=Form11.DBMemo1.Text;  Form11.Image1.Picture.LoadFromFile(piccc);  Form10.ADOQuery1.Post;   end;

[lmikle]

1. На какой строке вылетает эксепшн в приведенном коде?
На LoadFromFile? Тогда добавь где-нить в проекте в uses модуль для работы с png (PNGImage или как он там называется) - тогда кодек сам зарегистрируется. Ну если файл существует, конечно.
2. Принципиальная ошибка в коде. Что будет, если нажать Отмена в диалоге выбора файла?
Код должен быть примерно таким:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm11.Button4Click(Sender: TObject); var piccc: string; begin   if Form11.OpenPictureDialog1.Execute then   begin     Form10.ADOQuery1.Edit;     Form11.DBMemo1.Text:=Form11.OpenPictureDialog1.FileName;     piccc:=Form11.DBMemo1.Text;     Form11.Image1.Picture.LoadFromFile(piccc);     Form10.ADOQuery1.Post;   end; end;