Изменения в базе данных не сохраняются

function TFRegistrationForm.SelectPerson(phone:string):boolean;
var NoErrors:boolean;
begin
NoErrors:=true;
try
 
NoErrors:=DBComponents.TAll.Locate('Телефон',
                         phone,
                         []);
 
 
except
NoErrors:=false;
end;
Result:=NoErrors;
end;

function TFRegistrationForm.GetUsual:integer;
begin
Result:=DBComponents.TAll.FieldByName('Код').Value;
end;

function TFRegistrationForm.SelectPair(PairName:string):boolean;
begin
Result:=DBComponents.TPairTable.Locate('Название пары',
                               PairName,
                               []);
end;

procedure TFregistrationForm.PostPairTable;
begin
DBComponents.TPairTable.Edit;
DBComponents.TPairTable.Post;
end;

procedure TFregistrationForm.PostPair;
begin
DBComponents.TPair.Edit;
DBComponents.TPair.Post;
end;

function TFRegistrationForm.RegisterPair:boolean;
 
 
var NoError:boolean;
IsPair:boolean;
 
begin
NoError:=true;
with DBComponents.TPairTable do
    begin
 
      try
          SelectPerson(EPhone.Text);
          IsPair:=SelectPair(EPairName.Text);
          if not IsPair then append;
 
          Edit;
          if not IsPair then
            begin
              FieldByName('Общий номер 1-ого участника(цы)').Value:=GetUsual;
              FieldByName('Название пары').Value:=EPairName.Text;
 
              DBComponents.TPair.append;
              DBComponents.TPair.Edit;
              DBComponents.TPair.FieldByName('Номер пары').Value:=FieldByName('Код').Value;
              PostPair;
            end
            else FieldByName('Общий номер 2-ого участника(цы)').Value:=GetUsual;
 
            PostPairTable;
            PostPair;
      except
        NoError:=false;
      end;
    end;
 
Result:=NoError;
end;