Mir ist nicht ganz klar, was Du möchtest.
Soll das Arbeitsverzeichnis des Programmes das Laufwerk des USB-Sticks sein?
Dann eventuell im Programm (FormCreate oder so) dashier ausprobieren:
Delphi-Quellcode:
...
ChDir(ExtractFilePath(Application.ExeName));
... oder
ChDir(ExtractFileDrive(Application.ExeName));
...
Im ersten Fall ist dann das aktuelle Verzeichnis des Programmes das Verzeichnis, in welchem sich die Exe befindet.
Im zweiten Fall ist das aktuelle Verzeichnis das Root-Laufwerk des USB-Sticks, auf dem sich die Exe befindet.