Подсчет строк. Delphi

[FatLip]

Здравствуйте. У меня проблемы с реализацией программы. Смысл программки такой: дано два ListBox'а, в LeftLB открываю файл с расширением xxx.pas, а в ListBox1 должен вывести (из файла xxx) объявления классов имеющих методы: имя класса – число методов.
Начал реализацию:

procedure TMyProject.loadClick(Sender: TObject);
begin
if OpenDialog1.Execute then
LeftLB.Items.LoadFromFile(OpenDialog1.FileName);
end;

procedure TMyProject.runClick(Sender: TObject);
var
i: integer;
nameclass, s: string;
begin
i:=0;
while trim(LeftLB.Items[i])<>'implementation' do
begin
s:= trim(LeftLB.Items[i]);
if pos('= class', s)>0 then
begin
nameclass:= copy(s,1,pos(' ',s));
ListBox1.Items.add(nameclass);
end;
inc(i);
end;
end;

(представлена программа только по выводу классов)

Вообщем, если посмотреть на к-л файле .pas по правилам классы задаются перед словом "implementation" в коде. Я поставил границы до этого слова, чтобы считать количество строк.
Также надо подсчитать число методов после класса и вывести их в ListBox1. Граница для них будет "end;". Но когда я делаю по аналогии с "классом" для "методов", у меня получается, что цикл работает бесконечно, либо выводит не правильное значение.
Помогите!

[Stilet]

Ну вот могу так подсказать:

procedure TForm1.FormCreate(Sender: TObject);
var s:TStringList;i,met:integer;
begin
s:=TStringList.Create;   {$o-}
s.LoadFromFile('unit1.pas');
// Находим начало класса
i:=0;while ((s.Count-1)>=i)and(pos('class(',s[i])=0) do inc(i); 
// пока не конец класса подсчитываем кол-во процедур
met:=0;while ((s.Count-1)>=i)and(pos('end;',s[i])=0) do begin
 if pos('procedure',s[i])<>0 then inc(met);
 inc(i);
end;

caption:=IntToStr(met)+' процедур';
end;

[FatLip]

Я пытался под программу подвести, но либо у меня ничего не выводит, либо появляется ошибка.

А зачем снова находить начало "класса", можно ли просто задать подсчет в цикле программы. Кстати, после класса могут идти помимо procedure и функция и др... думаю, здесь имеется ввиду задать две границы (= class и до первого end и в них просто произвести подсчет строк.

[Stilet]

А зачем снова находить начало "класса", можно ли просто задать подсчет в цикле программы

Не понял...

думаю, здесь имеется ввиду задать две границы (= class и до первого end

Опять не понял...

в них просто произвести подсчет строк.

Ты писал что тебе нужно число методов, учти что свойства и поля не должны входить в это число.