Hola,
A ver si te echa una mano:
Código Delphi
[-]
uses
DCPconst, UCifrador;
procedure TForm1.Button1Click(Sender: TObject);
var
c: string;
s: string;
begin
c := 'claveparacifrar';
s := 'Cadena a cifrar';
s := Cifrar(s, c, DCP_blowfish, DCP_sha1, false);
ShowMessage(s);
s := Cifrar(s, c, DCP_blowfish, DCP_sha1, true);
ShowMessage(s);
end;
En todo caso echa un vistazo a la ayuda que acompañan a los componentes conque tratamos.