Datei laden, verschluesseln und speichern

[maximus Caesar]

Hallo!
Ich möchte eine beliebige Datei Laden,
mit einer eigenen procedure verschlüsseln und wieder speichern.
Wie mache ich das?

Am besten währe es, wenn die Datei byte weise verarbeitet werden kann,
also Datei landen, byte auslesen, byte verschluesseln, byte schreiben, wenn alle bytes geschrieben sind datei speichern.

Hab schon im Forum gesucht aber nichts passendes gefunden.
Hab gelesen das das Laden und speichern mit TFileStream funktioniert, hab aber noch nie damit geschafft und auch kein Tutorial gefunden.