[Gribok]

Картинака 2
ошибка в делфи
и код кнопки открыть

Код:

var  dbIM:TDBImage;
begin
 if Not(dlgOpenImage.Execute) then Exit;
 dbIm:=nil;
 With MenuClip do
  if PopupComponent is TDBImage then  dbIM:=(PopupComponent as TDBImage);
   if dbIm<>nil then begin
       if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;
       dbIM.Picture.LoadFromFile(dlgOpenImage.FileName);
       dbIM.DataSource.DataSet.Post;
   end;

    end;