with…do语句的用法
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也可以嵌套使用。

注：其实他的用法与VB中with 用法是一样的。只不过没有VB那样只能罢了。在VB中，如下列情况：

with text1

.text="1"

end with

在with 块中只需要轻敲一个“.”，就可以列出所有可用的text控件的属性，非常方便，因为毕竟我们实在没有那么多的精力去记住所有的属性，好多时候都是根据已有的列表进行选择。