Проверка множества Memo на пустоту

[flouwjke]

На форме имеются 20 Memo необходимо проверить все на пустоту. Я реализовал так

Procedure IfSpace(Sender:TEdit);
Begin
  if Length(Sender.Text)=0 then ShowMessage('Не все поля заполненны');
End
 
procedure TForm1.Button1Click(Sender: TObject);
var
 j: byte;
begin
 For j:=1 To 20 Do
    if ((FindComponent(Length('Memo' + IntToStr(j)) as TMemo).Text=0)) then
  Begin
    ShowMessage('Не все поля заполненны');
    Exit;
  End;

Но ругается на

if ((FindComponent(Length('Memo' + IntToStr(j)) as TMemo).Text=0)) then

[Error] Unit1.pas(38): Operator not applicable to this operand type

Что не так?

[Аватар]

Length как туда затесалось?

[flouwjke]

ну потому как

if Length(Memo1.Text)=0 then Showmessage ('ololo');

[flouwjke]

Сам разобрался

  if Length((FindComponent('Memo' + IntToStr(j)) as TMemo).Text)=0 then

Так надо