Если хочешь потоком, то вот так можно:
var h1:THandle;
...
CreateThread(nil,0,@ИмяПроцедурыШифровки,nil,0,h1) ;
если нужна функция, а не процедура, то CreateThread может передать ей только 1 аргумент. последний "0" и есть тот аргумент.
Есть ещё делфовый TThread, но я его не юзал
