my_rs:=OpenRecordStore('my_rs'); for i:=1 to GetRecordStoreSize(my_rs) do begin if ReadRecordStoreEntry(my_rs,i)=str then //str - строка, которую ищем begin ... end; end;