FindComponent函數

var i:Byte;
  aTitle : String;
  lb:TQRLabel;
begin
 for i:= 0 to 6 do
  begin
    lb := FindComponent('QRLblA'+IntToStr(i)) as TQRLabel;
    if lb <> nil then
    begin
      lb.Caption := ' ';
    end;
  end;
end;