with var x = Object do

auto x;
if (x = (object == ...))

with var x = Object do

with var x = Struct do

with var x = @Struct do

    with Location do
      DrawCheck(Canvas, Point(FrameRect.Left + 5, Self.Height div 2 - 1), 2);

  with Canvas do
  begin
    Pen.Color := Menu.ColorMap.FontColor;
    Brush.Color := Pen.Color;
  end;

class function TKeyLanguage.Create: TKeyLanguage;
begin
  with Result do
  begin
    Caption := '';
    Vk := -1;
    ScanCode := -1;
    SetLength(ComboKeys, 0);
    Language := '';
    KeyImage := kiText;
  end;
end;

  with DockClients[0] do
  begin
    NcW := Self.Width - Width;
    NcH := Self.Height - Height;
    FUpdatingSize := True;
    try
      SetBounds(Left, Top, W - NcW, H - NcH);
    finally
      FUpdatingSize := False;
    end;
    NewWidth := Width + NcW;
    NewHeight := Height + NcH;
  end;