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;