саша40
var
i: integer;
a: integer;
Str: String;
begin
for i:=0 To ListBox1.Items.Count-1 Do
begin
Str:=ListBox1.Strings;
if Pos('!',Str)>0 then a:=a+1;
end;
ShowMessage('Восклицательный знак есть хотя бы 1 раз в ' + IntToStr(a) + ' строк');
end;