var
  Form1: TForm1;
a: array [0..8] of integer;
i,k:integer;

​

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=0 to 8 do
  a[i]:=StrToInt(Memo1.Lines[i]);

  k:=0;
  for i:=0 to 8 do
  if a[i]<3 then k:=k+1;

  label1.visible:=true;

  if k=0 then label1.caption:='меньше 3 нет'
  else label1.caption:='такие елементы есть';

end;