Criptografia (Proteção do Sistema)

Olá Amigos, Gostaria de Saber como Criptografar um Edit. 1º Capturar o Nº do HD. 2º Mostrar ao Usuário o Número do HD 3º Ai o Cliente liga para a Empresa que lhe forneceu o Software 4º Passa o Nº do HD para o Atendente 5º O Atendente Calcula um Código de Registro e Repassa ao Cliente a ´Número Serial´ do Sistema... Complicado mas é de Estrema necessidade Agradeço se Alguém Poder me Ajudar

Function SerialNum(FDrive:String) :String;
Var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try GetVolumeInformation(PChar(FDrive+´:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,8); 
Except Result :=´´;
end;
end;