with…do语句用来指定一个块中的字段（记录的或者对象的）、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式：

var

Button: TButton;

begin

Button := TButton.Create(Self);

Button.Parent := Self;

Button.Left := 50;

Button.Top := 50;

……

end;

每行都写一个Button是否让你感觉厌烦。Object Pascal提供它特有的with…do语句，可以帮你消除这个烦恼。上面的代码可以写为：

var

Button: TButton;

begin

Button := TButton.Create(Self);

with Button do {编译器会知道下面的三个属性属于Button}

begin

Parent := Self;

Left := 50;

Top := 50;

……

end;

end;

with…do中可以包含多个记录或者对象，用逗号隔开。with…do也可以嵌套使用。