Строковые переменные!!!!

[sasha_14-88]

вводится строка, состоящая из русских слов, набранных прописными буквами и разделенных пробелом. как найти количество слов, которые начинаются одной и той же заданной буквой.(делфи)
вот с помощью инета подобрал код, но он не работает, все время 0 выдает.. и непонятны некоторые строки:
var c,i:integer;
begin
c:=0;
With TStringList.Create do //что означает With TStringList.Create??
begin
DelimitedText:='Предложение';//это к чему относится??
for i:=0 to Count-1 do
if Copy(Strings[i],1,1)='заданная буква' then inc(c); //что такое ins
free; //что это означает?
end;
ShowMessage(IntToStr(c));

[sasha_14-88]

ура программа работает, только все равно непонятно что означают те строки??
begin
c:=0;
With TStringList.Create do //With TStringList.Create-это для чего?
begin
DelimitedText:=edit1.Text;
for i:=0 to Count-1 do
if Copy(Strings[i],1,1)=edit2.Text then inc(c); //что такое инс??
free; //что такое фри??
end;
ShowMessage(IntToStr(c));
free; //что это означает?
end;
ShowMessage(IntToStr(c));[/QUOTE]

[doktor255]

With TStringList.Create-это для чего?

Это массив строк, в который можно положить строку по DelimitedText - разделителю, и обращаться к конкретному слову по его индексу

что такое инс??

Вбиваем тот же вопрос в гугле, просвещаемся.

//что такое фри??

Конструкция With TStringList в начале кода позволяет обращаться сразу к свойствам StringList внутри конструкции соответственно free, это StringList.Free;

[Igorek9494]

With TStringList.Create - дословно "работа с компонентом"
видишь ниже строку кода DelimitedText:=edit1.Text;
так вот она относится к TStringList.Create.DelimitedText .
если ты хочешь много раз обращаться к этому компоненту, то поэтому проще пишут With "компонент"
и потом просто без полного обращения к компоненту(и процедуры), а сразу его процедуры(функции) сразу. всё)