让一个程序暂停执行最好用哪个函数

Question

在USES里加入windows就可用sleep(n)

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
//对GroupBox1上的控件操作 
  for i := 0 to Form1.ComponentCount - 1 do
  begin    if (Components[i] is TCheckBox) or (Components[i] is TRadioButton) then
      if TButtonControl(Components[i]).Parent.Name = 'GroupBox1' then
        if TButtonControl(Components[i]).Tag in [1..3] then
          TButtonControl(Components[i]).Visible := True
        else if TButtonControl(Components[i]).Tag in [4..6] then
          TButtonControl(Components[i]).Visible := False;
  end;
end;