[PhoeniX]

var должен быть перед begin
И вообще:

Код:

procedure TForm1.Label2Click(Sender: TObject);
var
  r, i, j: integer;
begin
  label2.caption:=inttostr(length(memo1.text)); // длина текста в мемо
  r:=0;
  for i:=0 to memo1.lines.count-1 do
    for j:=1 to length(memo1.lines.strings[i]) do
      if copy(memo1.lines.strings[i], j, 1)='?' then
        inc(R); // увеличиваем результат
end;