Fórum Localizar impressora padrão, porta e driver #293173

Utilizei o codigo abaixo para localizar a impressora padrão no XP, driver e porta. Só que esse código só me retorna a Impressora padrão no Edit1, o driver e as portas não aparecem, alguem tem a solução para que o código abaixo funcione no windows xp.

A impressora esta perfeitamente instalada - HP 610C , Porta LP1.

procedure Tfrmselimpressora.BitBtn2Click(Sender: TObject);
var
impressora : array[0..255] of char;
porta : array[0..255] of char;
driver : array[0..255] of char;
hnd : THandle;
begin
Printer.GetPrinter(impressora, driver, porta, hnd);
Edit1.Text:= impressora;
Edit2.Text:= porta;
edit3.Text:= driver;
end;