Передача записи как параметра

TMyRecord = record
  Blah: String;
  Bloh: Integer;
  Bluh: Boolean;
end;

ObjectList.Add( TMyObject.Create(a,b,c,d));

TMyRecord = record
  Blah: String;
  Bloh: Integer;
  Bluh: Boolean;
  constructor Create(const ABlah: String; ABloh: Integer; ABluh: Boolean);
end;
 
constructor TMyRecord.Create(const ABlah: String; ABloh: Integer; ABluh: Boolean);
begin
  Blah := ABlah;
  Bloh := ABloh;
  Bluh := ABluh;
end;
 
...
 
List.Add(TMyRecord.Create('Hello World', 1000, True));

type
  TMyRec = record
    X, Y: Integer;
  end;
 
var
  List: TList<TMyRec>;
 
procedure Test;
var Rec: TMyRec;
begin
  List := TList<TMyRec>.Create;
  Rec.X := 10;
  Rec.Y := 20;
  List.Add(Rec);
  Rec.X := 111;
  List.List[0].Y := 222;
  ShowMessageFmt('Rec: %d, %d'#10'List: %d, %d',
    [Rec.X, Rec.Y, List[0].X, List[0].Y]);
  List.Free;
end;

function TListHelper.InternalAdd8(const Value): Integer;
begin
  Result := FCount;
  if Result = DynArraySize(FItems) then
    InternalGrow(Result + 1);
  PUInt64(FItems)[Result] := UInt64(Value);
  Inc(FCount);
  if Assigned(FNotify) then
    FNotify(FListObj, Value, cnAdded);
end;

procedure TListHelper.InternalGrow(ANewCount: Integer);
begin
  InternalSetCapacity(GrowCollection(DynArraySize(FItems), ANewCount));
end;

procedure TListHelper.InternalSetCapacity(Value: NativeInt);
begin
  DynArraySetLength(FItems, FTypeInfo, 1, @Value);
end;