Problemas con puertos con win xp

[Descendents]

function Tform1.capturapuerto :String;
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;

begin
Printer.PrinterIndex := -1; // -1 o el que sea
Printer.GetPrinter(Device, Driver, Port, hDMode);
Result := Device+' Puerto: '+Port;


Pues bien, esta funcion, con windows xp no me devuelve los puertos.Port no me devuelve nada. En win 98 me funcionaba correctamente

Alguien tiene idea de porque pasa??

Muchas gracias de antemano
Un saludo.