String Download

[Madara Uchiha]

Ich habs so versucht, aber ich krieg den Fehler access violation:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  xFS: TFileStream;
begin
    idftp1.Connect;
  xFS := TFileStream.Create('dokument.txt', fmCreate);
  try
    IdFtp1.get('dokument.txt', xFS);
  finally
    FreeAndNil(xFS);
   xFS.Seek(0, soFromBeginning);
  end;
end;

http://www.delphipraxis.net/attachme...1&d=1365449570