Undeclared identifier: 'CanClose'

Procedure IfSpace(Sender:TEdit);
Begin
  if Length(Sender.Text)=0 then
     if MessageDlg('Не все поля заполнены. Продолжить?', mtInformation, [mbYes,mbNo], 0)=mrYes then
    CanClose:=True
  else
    CanClose:=False;
End;
 
procedure TForm4.Button1Click(Sender: TObject);
var
 j: byte;
begin
 For j:=1 To 20 Do
    if Length((FindComponent('Memo' + IntToStr(j)) as TMemo).Text)=0 then
  Begin
    if MessageDlg('Не все поля заполнены. Продолжить?', mtInformation, [mbYes,mbNo], 0)=mrYes then
    CanClose:=True
  else
    CanClose:=False;
    Exit;
  End;
    Form4.Close;
end;
 
 
procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=(MessageBox(Handle, PChar('Завершить ввод данных по объкту?'), PChar('Внимание!'),
                        MB_OKCANCEL or MB_ICONINFORMATION)=IDOK);
end;

procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageBox(Handle, PChar('Завершить ввод данных по объкту?'), PChar('Внимание!'),
                        MB_OKCANCEL or MB_ICONINFORMATION)=IDOK;
  
end;

if MessageDlg('Не все поля заполнены. Продолжить?', mtInformation, [mbYes,mbNo], 0)=mrYes then
    CanClose:=True
  else
    CanClose:=False;

procedure IfSpace(Sender : TEdit);
begin
   result := Length(Sender.Text) = 0;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   bEmpty : Boolean;
begin
   bEmpty := False; // В начале допустим, что нет пустых полей
 
   // Проверим, что же происходит в действительности.
   for i := 1 to 20 do
      bEmpty := bEmpty or (Length((FindComponent('Memo' + IntToStr(i)) as TMemo).Text) = 0);
 
   if bEmpty then // Что-то осталось незаполненным !!!
      CanClose := MessageBox(Handle, PChar('Не все поля заполнены. Закрыть форму?'),
                  PChar('Внимание!'), MB_OKCANCEL or MB_ICONWARNING) = IDOK
   else // Все поля заполнены. Просто предупреждаем, что форма закроется
      CanClose := MessageBox(Handle, PChar('Завершить ввод данных по объекту?'),
                  PChar('Внимание!'), MB_OKCANCEL or MB_ICONINFORMATION) = IDOK;
end;

Function IfSpace(Sender : TEdit) : Boolean;
begin
   Result := Length(Sender.Text) = 0;
end;

Function IfSpace(Sender : TEdit): Boolean;
begin
   Result := Length(Sender.Text) = 0;
end;

Function IfSpace(Sender : TEdit): Boolean;
begin
   Result := Length(Sender.Text) <> 0;
end;