поиск по subitems

[bulldog5293]

Пытался составить поиск не по найденому тексту в субайтеме, а по следующе стоящему, всмысли нашли текст в первом и проверяем текст во втором

procedure TForm17.Button1Click(Sender: TObject);
var
Index, i,j: integer;
begin
if pos(Edit1.text,ListView1.Items.Item[0].SubItems.Text)<>0 then
 begin
  with ListView1.Items do
    begin
  i:=Item[0].SubItems.IndexOf(Edit1.text);
//проверить есть ли в следующем субайтеме заглавные русские или английские буквы
If not (i in ['А'..'Я','A'..'Z'])//ругается на incompatible types: 'integer' and 'AnsiChar'
 then delete(i,1,1);
 begin
 ShowMessage(Edit1.text+' найден');
 ShowMessage('запись '+Edit1.text+' будет удалина');
     end;
 end;
end;
end;

но чё та не выходит

[bulldog5293]

так тож не выходит

procedure TForm1.Button1Click(Sender: TObject);
var
i,z,count:integer;
s:string;
begin
i:=0;
z:=0;
count:=4;
while i<5 do begin
s:=ListView1.Items.Item[0].subitems[z];
If not (s[1] in ['А'..'Я','а'..'я']) then
if z<>-1 then ListView1.Items.Item[0].SubItems.Delete(z);
z:=z+2;
i:=i+1;
end;
end;

[asmodey1]

Если я правильно понял, вам нужно использовать функцию PosEx - это она ищет не только первое вхождение подстроки, а и все последующие, если вы ей укажете, с какой позиции начинать поиск...

[bulldog5293]

разобрался, вопрос снят, всем спасибо за внимание