type pstring=^string; const drivestr:string='c:'; pdrivestr:pstring=pstring(@drivestr); begin end.