Danke Sharky,
ich hab das jetz so gebaut:
Delphi-Quellcode:
var
Form1: TForm1;
Filename: string;
crypt: string;
Algorithmus: TCipherClass;
.
.
.
.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.text = 'Blowfish' then Algorithmus := TCipher_Blowfish;
if ComboBox1.text = 'Rijndael' then Algorithmus := TCipher_Rijndael;
if ComboBox1.text = 'Sapphire II' then Algorithmus := TCipher_Sapphire II;
end;
aber da bekomme ich die Meldung undefinierter Bezeichner "TCipher_Rijndael" und
undefinierter Bezeichner "TCipher_Sapphire II"