var target: TFilename;
...
target := GetLinkTarget('C:test.LNK');
...
target := GetLinkTarget('C:Documents and Settingsuser1NethoodDocuments at Server2');