List.loadfromStream не работает

procedure TForm1.Button4Click(Sender: TObject);
// расшифровка
var
  Str1, Str2 : TFileStream;
  StringStream:TStringStream;
    List:TStringList;
begin
 Str1 := TFileStream.Create('General2.dat', fmOpenRead);// загружает из файла в поток
 StringStream:=TStringStream.Create();
 DecryptCopy(StringStream, Str1, Str1.Size, key); // расшифровывает поток Str1 в StringStream
 Str1.free;
 List:=TStringList.Create;
 
 List.LoadFromStream(StringStream); // ничего не загружает, лист остается пустым!
 
 Str2 := TFileStream.Create('General2.dat', fmCreate);
 Str2.CopyFrom(StringStream,0); // записываем расшифрованное обратно в файл
 StringStream.Free;
 Str2.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TempStream : TMemoryStream;
begin
  TempStream := TMemoryStream.Create;
  ListBox1.Items.SaveToStream(TempStream);  // Write list box contents to the
                                            // stream.
  TempStream.Position := 0;      // Reset to the beginning of the stream.
  RichEdit1.Lines.LoadFromStream( TempStream); // Load stream contents into rich 
                                               // edit control.
  TempStream.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Add('Apples');
  ListBox1.Items.Add('Oranges');
  ListBox1.Items.Add('Pears');
end;

StringStream.Position := 0;