TIdDecoderUUE aus FastNet NMUUE

[Jelly]

Das Beispiel klappt bei mir jetzt auch... Aber ich will eigentlich eine ganze Datei encoden:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
 FS : TFileStream ;
begin
      IdEncoderUUE.FillChar := '=';
      IdDecoderUUE.FillChar := '=';
      Showmessage (IdEncoderUUE.Encode('Hallo Marabu')) ;   // Klappt

      FS := TFileStream.Create(txtFilename.text,fmOpenRead);
      try
        IdEncoderUUE.Encode(FS) ;
      finally
        FS.Free;
      end;
end;

Da krieg ich nur eine Range Check Error