komplette Dateien jeglicher Art verschlüsseln

[Avax2k]

habe schon den ganzen tag im Forum gesucht aber gar nichts passenden gefunden nur eben immer wieder Bemerkungen wie : schau dir mal den Befehl TFileStream oder TResourceFile and usw.
Leider komme ich nicht dahinter, wie ich eine komplette Datei verschlüsseln kann..nur eben eine Textausgabe im Edit-Feld.. dazu sieht der Code wie folgt bei mir aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.FileName;
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
tfilestream.Create(Encode(Edit1.Text, 'a'), fmCreate);
end;

nach dem Drücken des knopfes wird auch eine Date erstellt jedoch wird nur der Dateiname eben der generierte schlüssel da es ja so nur den Inhalt vom Edit-Feld verschlüsselt..
Wie schaffe ich jetzt nur, dass er die komplett mit OpenDialog ausgewählte Datei an sich verschlüsselt ??

hoffe man kann mir weiterhelfen.