With do簡略化コード文

//With  
{
With 。
（ ），
With

with do
begin
     := ;
end;

}
// 1
with Button1 do
begin
    caption := 'Btn';
    width := 100;
end;

// 2
with edit1 do
begin
    text := 'Hello World!';
    font.name := ' ';
    font.color :=clred;
end;