Here's a very simple app to do this. Just start a brand new project in Delphi and drop down a TButton and a TMemo. Then double click the button and paste this code snippet over the corresponding code in the implementation of Unit.

uses
  WinSpool;
const
  PName = 'DELPHI III';
  PPort = '\\CONAN\DELPHI_III';
procedure TForm .Button Click(Sender: TObject);
var
  i : Integer;
  p : PChar;
begin
  GetMem(p,24*DeviceCapabilities(PName,PPort,DC_BINNAMES,nil,nil));
  with Memo , Lines do begin
    Clear;
    for i:=  to DeviceCapabilities(PName,PPort,DC_BINNAMES,p,nil) do
      Add(p+24*(i- ));
  end;
  FreeMem(p);
end;