Pegar port da impressora Win XP

Olá pessoal, fiz uma aplicação onde preciso da porta
da
impressora no windows xp, só que no windows 98,95,ME,
funciona normalmente, já xp não armazena nada.
ex:

//Desse jeito não funciona

function CorrentPrinter :String; //Declare a unit Printers
na clausula uses
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDMode);
Result := Device+´ na porta ´+Port;
end;

Se alguém tiver uma solução agradeço....