[ecfisa]

Hola leogobo.

Código Delphi [-]
...
var
  d1: variant;
begin
  Dbf1.First;
  d1:= Dbf1.FieldByName('Campo1').Value;
  Dbf1.Last;
  if d1 = Dbf1.FieldByname('Campo1').Value then
  begin
    ...
  end;

Saludos