Table1.Filter := 'TypNaselPunkt = ''gorod'''; // или деревня, определяй по вкладке. Table1.Filtered := True;