Оператор With позволяет избегать использования сложных квалифицированных идентификаторов при доступе к полям, свойствам и методам объектов. С помощью оператора With задаются синонимы квалифицированных идентификаторов, действующие в блоке, ограничиваемом данным оператором.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
With lbl: Label1.Font Do
lbl.Bold := True;
lbl.Color := GxColor.FromName("Red");
lbl.Size := 15;
lbl.Underline := True;
End With;
End Sub Button1OnClick;
См. также: