TStream nach TIdStream 'casten'

[gluglu]

Folgendes gefunden :

unter Uses muss IdObjs stehen (anstatt IdStream).

Dann mache ich folgendes :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TIdStream;
begin
  if IdPOP31.Connected then IdPOP31.Disconnect;
  IdPOP31.Host     := '...............';
  IdPOP31.Port     := 110;
  IdPOP31.Username := '...............';
  IdPOP31.Password := '......';
  IdPOP31.Connect;

  IdMessage1.Clear;
  IdPOP31.Retrieve(1, IdMessage1);
  f := TIdFileStream.Create('C:\Email.eml', fmCreate);
  IdMessage1.SaveToStream(f);

....

Aber wie schon gesagt. Umlaute werden in der .eml datei falsch dargestellt.

P.D. Benutze Indy10 und Delphi 2006 VCL.Net