[*Caro*]

Hola caifan_0883, como te han indicado, es solo asignar lo que tienes en PPortname y pPrinterName a tus variables.

Código Delphi [-]
var
 Puerto, Impresora : String;
   .......................................
   .......................................
   For Index:=0 to Count-1 do
       If not Longbool(lstrcmp(@default,Items[Index].pPrinterName)) Then
         Begin
           Puerto := Items[Index].PPortname;
           Impresora := Items[Index].pPrinterName;
         End;
    .......................................

Saluditos