With/ru

// Объявление записи (структуры)
type
  TreRecord = record
    strValue: string;
    intValue: integer;
    dblValue: double;
  end;

var
   reRecord: TreRecord; // Объявляем переменную типа "запись"

begin
  ...

  // стандартное обращение к полям записи:
  reRecord.strValue := 'Test';
  reRecord.intValue := 5;
  reRecord.dblValue := 4.2;

  // с использованием слова "with"
  with reRecord do
  begin
    strValue := 'Test';
    intValue := 5;
    dblValue := 4.2;
  end;
  ...
end;