Realmente Desesperado

[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

Necesito que alguien pudiera ayudarme i me digera como puedo conseguir ahora el puerto.

Lo he preguntado en muchos sitios, y ya estoy realmente desesperado.

Muchas gracias de antemano
Un saludo.