[lKinGl]

Al finnnnnnn pude lograr lo que queria

Gracias eduarcol por tu tiempo y amigos foristas que me quisieron ayudar

lo que tenía era un error lógico por que siempre comparaba una sola tabla
y como yo queria que se guardara en las 2 tablas habia que comparar las 2 tablas haciendo asi:

Código Delphi [-]
                         begin
                            if form1.table2.locate('cod_pol', edit5.Text, []) then
                               begin
                                   if form1.Table1.Locate('cod_pol',edit5.Text,[]) then

de verdad estoy muy agradecido por la paciencia que tuvieron al ayudarme con mi problema

Facilito el código completo que estoy usando para que le sirva a alguien más:

este es el código del botón guardar y actualiza los datos en las 2 tablas correctamente

Código Delphi [-]
if length(edit1.Text)<1 then
  begin
    application.MessageBox('Porfavor ingrese la Cédula del Cliente','Información',MB_ICONINFORMATION);
    end
  else
  begin
      if length(edit2.Text)<1 then
        begin
           application.MessageBox('Porfavor ingrese la Nombre o Razón Social del Cliente','Información',MB_ICONINFORMATION);
           end
        else
        begin
            if length(edit3.Text)<1 then
              begin
                application.MessageBox('Porfavor ingrese el Domicilio Fiscal del Cliente','Información',MB_ICONINFORMATION);
                end
              else
              begin
                  if length(edit4.Text)<1 then
                    begin
                      if application.MessageBox('¿Este Cliente tiene número de teléfono?','Información',MB_YESNO)=6 then
                        begin
                        application.MessageBox('Porfavor Ingreselo','Información',MB_ICONINFORMATION);
                        end
                        else
                        begin
                        edit4.Text:='No Tiene';
                        if application.MessageBox('Cliente Guardado con Éxito','Guardar',MB_YESNO)=6 then
                        begin
                          BitBtn1.Click;
                        end
                        else
                        begin
                          BitBtn4.Click;
                        end
                        end
                    end
                    else
                    begin
                    //Base de Datos Para Guardar
                        begin
                         if form1.table2.locate('cod_pol', edit5.Text, []) then
                         begin
                            if form1.Table1.Locate('cod_pol',edit5.Text,[]) then
                          begin
                            form1.Table1.Edit;
                            form1.Table1.FieldValues['cod_pol']:=trim(edit5.Text);
                            form1.Table1.FieldValues['Ced_cli']:=trim(Edit1.Text);
                            form1.Table1.FieldValues['Nom_cli']:=trim(edit2.Text);
                            form1.Table1.FieldValues['Dir_cli']:=trim(edit3.Text);
                            form1.Table1.FieldValues['Tel_cli']:=trim(edit3.Text);
                            form1.Table1.Post;
                            form1.Table2.Edit;
                            form1.Table2.FieldValues['cod_pol']:=trim(edit5.Text);
                            form1.Table2.FieldValues['Ced_cli']:=trim(Edit1.Text);
                            form1.Table2.FieldValues['Nom_cli']:=trim(edit2.Text);
                            form1.Table2.FieldValues['Dir_cli']:=trim(edit3.Text);
                            form1.Table2.FieldValues['Tel_cli']:=trim(edit3.Text);
                            form1.Table2.Post;
                            ShowMessage('Datos Modificados con Éxito');
                            BitBtn4.Click;
                          end
                          else
                          begin
                          ShowMessage('Error al Modificar Datos');
                          end
                         end
                        end
                        end
              end
        end
  end