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.