Тупанул немного, вот так будет более верно:
Код:
// проверяем отработал ли диалог и существует ли файл
if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then
begin
Table1.Edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Table1.Post;
end
else // если не отработал то делаем что- то
showmessage('Была нажата кнопка отмена!');
1) Ну почитай help. Там же все написано.
Код:
var
s:string;
i:integer;
begin
i:=10;
s:=IntToStr(i);
Про ошибку- удали LCK файлы, скорее всего в них дело.