Необъявленный объявленный идентификатор Memo3

unit Tero19;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  stroka1, slovo1, slovo_Memo1 : string;
  psr_str_glvn, psr_str1, psr_str2, psr_poisk : string;
 
   // счётчики для циклов
  istina : integer;    // результирующая для процедуры "Поиск"
  procedure Cikl_stroki(stroka1: string; var psr_str_gl :string);
  procedure Poisk(slovo_Memo1: string; var istina: integer);
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo3.Lines.LoadFromFile('Slovar.txt');
end;
 
// Этап 3.
// Сверяю со словарём полученные слова. Возвращаю результат сверки.
procedure Poisk(slovo_Memo1: string; var istina: integer);
var
  i3: Integer;
 
  begin
   istina := 0;    // ноль - означает что подобное слово есть в словаре.
   for i3 := 0 to  Memo3.Lines.Count -1 do
     begin
       psr_poisk := Memo3.Lines[i3] ;
       if slovo_Memo1 = psr_poisk
         then   istina := 0
         else   istina := 1;
 
     end;
 
 end;
 
 
   
 
 
// Этап 2.
// Подготовка очередной строки для расчленения на подстроки(слова)
// для углубления анализа: сверки с базой допустимых слов в языке;
procedure Cikl_stroki(stroka1: string; var psr_str_gl :string);
var
  i2: Integer;
 begin
   psr_str_glvn := '';
   for i2 := 1 to length(stroka1) do
     begin
 
       (*Esli [i]-yj simvol ne raven probelu,to skladyvaem vse bukvy do ocherednogo probela.*)
         (*A inache [esli popalsja simvol ravnyj probelu] delaem nizhe sledujuwee:*)
       if stroka1[i2]<>' '
         then slovo1:= slovo1 + stroka1[i2] // собираем слово из символов по-очерёдно
         else
           begin
             Poisk(slovo1,istina) ; // вызов процедуры сравнения со словарём
             if istina = 0
               then psr_str1 :=  slovo1
               else
                 begin
                   slovo1 := AnsiUpperCase(slovo1); // если слова нет в словаре, то выделя его верхним регистром
                   psr_str1 :=  slovo1;
                 end;
 
             psr_str2 :=  psr_str1 + ' ' ;  // присваиваю пропавший в процессе пробел
             slovo1 := '';
             psr_str_glvn :=  psr_str_glvn + psr_str2; // собираю слова обратно в строку
           end;
 
     end;
 
 end;
 
 // Этап 1.
//  Ввод-вывод строк текста
// + Подготовка очередной строки для задачи Этапа2: вставка пробела в конце строки
procedure TForm1.Button1Click(Sender: TObject);
var
  i1: Integer;
begin
  Memo2.Lines.Clear;
 
 
  for i1 := 0 to Memo1.Lines.Count-1 do
  begin
    if Memo1.Lines[i1]<> ''   // устраняется ошибка выполнения при встречи с абс.пустой строкой
      then
        begin
          stroka1 := Memo1.Lines[i1];
          if stroka1[Length(stroka1)]<>' '
            then   stroka1 := stroka1 + ' ' ;
          Cikl_stroki(stroka1, psr_str_glvn);
          Memo2.Lines.Add(psr_str_glvn);
        end
      else Memo2.Lines.Add(Memo1.Lines[i1]); // устраняется ошибка выполнения при встречи с абс.пустой строкой
 
  end;
end;
 
end.