Ошибка: Неизвестное имя 'textBoxA' - PascalABC.NET

var q,w:string;
qq,r:integer;
begin
      r:=textBoxA.Text;
      q:=textBox5.Text;
    for qq:=1 to length(q) do 
   begin
      w:=copy(q,qq,1);
    if w='А' then
      inc(r)
    else if w='а' then
      inc(r)
      
    else
    r:=IntToStr(textBoxA);
  end;