var db: TDBF;
begin
   db := TDbf.Create(self);
   try
     db.FilePath := 'C:\Users\hat\Desktop\omgdb\db\';
     db.TableName := 'db.dbf';

     db.Open;

     while not db.EOF do
     begin
        Listbox1.Items.add(db.FieldValues['NAME']);
        db.next;
     end;

     db.Close;
   finally
     db.Free;
   end;
End;