pasar un puntero a una funcion

[droguerman]

declaras un tipo puntero a registro (por ejemplo) así:

Código Delphi [-]
  TREc = record
    nombre : string;
  end;

  PRec = ^TRec;

tu función sería algo parecido a:

Código Delphi [-]
procedure pasarRecord(punt: PRec);
begin
  showMessage(punt^.nombre);
end;

y la llamas de la siguiente forma usando @:

Código Delphi [-]
var
  o : TRec;
begin
  o.nombre := 'hola';
  pasarRecord(@o);
end;