[Мяфк]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,b,a:integer;
begin
b:=0;
a:=0;
for i:=0 to memo1.Lines.Count-1 do
 begin
 if pos('end',memo1.Lines[i])>0 then a:=a+1;
 if pos('begin',memo1.Lines[i])>0 then b:=b+1;
 end;
showmessage('Begin count= '+(b)+' end count= '+a+');
end;

Ну как-то так, могу ошибаться..