БД в Delphi

[Himikat]

Есть БД в Delphi. Есть кнопка, которая добавляет записи, я пытаюсь редактировать их (редактирование\удаление), но выскакивает ошибка: Не удается найти строку для обновления. Некоторые значения могли быть изменены со времени ее последнего чтения.
НО если я закрою потом открою программу, все нормально работает, такая проблема только с автоматически добавленными записями, если вручную создаю, все редактируется нормально.
Работаю через ADO

PHP код:

procedure TBD.Button1Click(Sender: TObject);
var
   MyList: TStringList;
   MyRegistry: TRegistry;
   i: Integer;
   Str1, Str2, Str3, StrY, StrM, StrD: string;
begin
     MyRegistry:=TRegistry.Create;
     MyList:=TStringList.Create;
      with MyRegistry do
       begin
        RootKey:=HKEY_LOCAL_MACHINE;
         if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
          False)=True then GetKeyNames(MyList);
          CloseKey;
         for i:=0 to MyList.Count-1 do
          begin
           RootKey:=HKEY_LOCAL_MACHINE;
           OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
           MyList[i], False);
           Str1:=ReadString('DisplayName');
           Str2:=ReadString('DisplayVersion');
           Str3:=ReadString('InstallDate');
           StrY:=copy(Str3, 0, 4);
           StrM:=copy(Str3, 5, 2);
           StrD:=copy(Str3, 7, 2);
           if Str1<>'' then
            begin
             DataModule1.DataSourcePO.DataSet.Insert;
             EditPO.DBEdit1.Text:='&#205;åòáóóê';
             EditPO.DBEdit2.Text:=Str1;
             EditPO.DBEdit3.Text:=Str2;
             if Str3='' then
              begin
              end
              else
              begin
               EditPO.DBEdit5.Text:=StrD+'.'+StrM+'.'+StrY;
              end;
            end;
           CloseKey;
           DataModule1.ADOTablePO.Edit;
         end;
       end;
end; 


Удаляю так:

PHP код:

  DataModule1.ADOTable.Delete; 


Редактирую так:

PHP код:

 if DataModule1.ADOTable.Modified then
  DataModule1.ADOTable.Post; 


В чем может быть проблема?