Compara Valores de Objetos de la misma clase

[Carmelo Cash]

Quedó así, una función dentro del objeto que devuelve verdadero o false comparando todos los campos.

Código Delphi [-]
function tClientes.Equals(recDatos: tClientes): boolean;
begin
  result:=
  (self.Nombre = recDatos.Nombre) and
  (self.Direccion = recDatos.Direccion) ;
end;

-- Boton grabar --

Código Delphi [-]
if not ClienteActual.Equals(clienteViejo) then grabar;

Gracias a todos los que participaron.