请教高手一个问题：
 自定义的命令行，如何运行？
 如：给多个label控件（label1，label2，。。。。。。）赋值，
 构造出：Str:='label'+inttostr(i)+'.caption:='''+'字串1'''';   // label1.caption:='11111111'  ，label2.caption:='22222222' ，。。。。。;
 问题是下面如何执行？有木有类似其他开发工具的宏？
 多谢！

从我的代码里抄了一段你看看
procedure TF_sbdllr.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to - 1 do
  begin
    if ([i] is TDBEdit) then
    begin
      ([i] as TDBEdit).enabled := false;
    end;
    if ([i] is TRzDBComboBox) then
    begin
      ([i] as TRzDBComboBox).enabled := false;
      ([i] as TRzDBComboBox).Items.Add('甲班');
      ([i] as TRzDBComboBox).Items.Add('已班');
      ([i] as TRzDBComboBox).Items.Add('丙班');
    end;
    if [i] is TRzTabSheet then
    begin
      ([i] as TRzTabSheet).tabVisible := false;
    end;
  end;
  if (gsUserName = '张三')  then
  begin
    for i := 0 to - 1 do
    begin
      if [i] is TRzTabSheet then
      begin
        if (([i] as TRzTabSheet).Caption = '包封') then
        begin
          ([i] as TRzTabSheet).tabVisible := True;
        end;
      end;
    end;
  end;
 end;