Като си направиш индекс по трите полета едновременно, ползвай IndexName & FindKey. Ето така:

  Table1.IndexName := 'datep_kodi_seqn';

  if Table1.FindKey([EncodeDate(2001,1,1), 'kod1', 1]) then begin

    ShowMessage('Found!');

  end;