[[seoane]]

Los stream son herramientas muy potentes, cuando trabajes un poco mas con ellos te darás cuenta . En cuanto a lo de cifrar el texto, dependiendo de la seguridad que necesites, puedes usar trucos sencillos como este http://www.clubdelphi.com/trucos/index.php?id=53 o incluso como este, que todavía es mas sencillo y evita ciertos problemas con el random al trabajar en diferentes compiladores:

Código Delphi [-]
function Cifrar(Texto: string; Clave: Byte): string;
var
  i: integer;
begin
  Result:= '';
  for i:= 1 to Length(Texto) do
    Result:= Result + IntToHex(Byte(Texto[ i ]) xor Clave,2);
end;

function Descifrar(Texto: string; Clave: Longint): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Texto) > 0 do
  begin
    if not TryStrToInt('$'+Copy(Texto,1,2),i) then
    begin
      Result:= '';
      Exit;
    end;
    Result:= Result + Char(Byte(i) xor Clave);
    Delete(Texto,1,2);
  end;
end;

Si lo que necesitas es SEGURIDAD con mayúsculas, te sugiero utilices algún algoritmo de cifrado algo mas fuerte: AES, Serpent, etc ... Existen componentes para realizar ese tipo de cifrados. Si buscas en los foros encontraras información sobre alguno