With/de

// Definition des Datensatzes
type
  TDatensatz = record
    strWert: string;
    intWert: integer;
    dblWert: double;
  end;

var
   recDatensatz: TDatensatz; // Erstellen des Datensatzes

begin
  ...

  // Standardschreibweise:
  recDatensatz.strWert := 'Test';
  recDatensatz.intWert := 5;
  recDatensatz.dblWert := 4.2;

  // Die Schreibweise mit with ist nicht nur kürzer, sondern hat auch einen Geschwindigkeitsvorteil
  with recDatensatz do
  begin
    strWert := 'Test';
    intWert := 5;
    dblWert := 4.2;
  end;
  ...
end;