USB Port abfragen mit Delphi?

[daisychain]

:?
Also probier mal das:

Neue Anwendung einen Button und ein Label.
Doppelklicken auf den Button.
Zwischen Prozedure und begin einfügen:
var
FT_Handle : THandle;
cardadress : longint;
s1 : string;

zwischen begin und end:

cardadress := 0;
Ft_Open(cardadress,Ft_handle);
s1 := FT_Handle;
label1.caption := s1;
FT_Close(FT_Handle);

zwischen implementation und procedure:
funktion FT_Open(cardadress: longint; FT_Handle : THandle):Ft_Handle; stdcall; external 'FTD2XX.dll';
procedure FT_Close(FT_Handle:THandle); stdcall ; external 'FTD2XX.dll';

Wie schon gesagt bin ich ein Anfänger kenne mich mit Handel nicht so gut aus.