Чек мемок на пустоту и MessageBox

[flouwjke]

Чекаю мемки на пустоту а при закрытии вывожу диалог если пусты то "Не все поля заполнены. Закрыть форму?" да/нет Да закрывает форму нет возвращает форму, но почему то даже када все поля заполнены он пишет "Не все поля заполнены. Закрыть форму?"
вместо "Завершить ввод данных по объекту?"

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


procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   bEmpty : Boolean;
   j: byte;
begin
   bEmpty := False;
 

   for j := 1 to 20 do
      bEmpty := bEmpty or (Length((FindComponent('Memo' + IntToStr(j)) 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;

[BDA]

Я не могу сказать, почему так происходит, но вы можете попробовать отладить сами

for j := 1 to 20 do
      begin
      bEmpty := bEmpty or (Length((FindComponent('Memo' + IntToStr(j)) as TMemo).Text) = 0);
      showmessage(inttostr(bEmpty)+' '+inttostr(j));
      end;

Посмотрите, из-за какого memo происходит поднятие флага.

[eoln]

Видать какой-то из 20-ти Memo не существует на этой форме?

[flouwjke]

Всем сяп очевидного обычно не замечаешь