Problem: Procedure zum speichern eines grids auf FTP server

[5etH]

Hallo Zusammen

mein Programmfragment speichert StringGrids in eine CSV datei auf einem FTP-Server nur leider gibt er mir einen Fehler aus obwohl es in einer anderen unit ohne probleme läuft hier einmal die beiden teile und anschließend die Fehlermeldung

Procedure

Delphi-Quellcode:

Procedure Save(Grid : TStringGrid; GridMem : TMemoryStream; FileName : String; CSV : TStringList);
Var I : Integer;
Begin
  // Vorbereitung zum speichern der Datenbanken
  GridMem := TMemoryStream.Create;
  CSV := TStringList.Create;
    //Speichern der Grids in Streams
    For I:=0 To Grid.RowCount -1 Do
      Begin
        Grid.Rows[i].Delimiter:=';';
        CSV.Add(StringReplace(Grid.Rows[i].DelimitedText,'',';',[rfReplaceAll]));
      End;
  // Speichern der Streams als Datei auf einem FTP Server
  CSV.SaveToStream(GridMem);
  Datenmodul1.IdFTP1.Put(GridMem,FileName);
  CSV.Free;
  GridMem.Free;
End;

Aufruf
Save(KNDT.StringGrid1, Grid1,'KundenStamm.CSV',CSV1); // EDIT !!! Im aufruf tritt der fehler auf Fehlermeldung(en):
[DCC Fehler] Regin.pas(210): E2066 Operator oder Semikolon fehlt
[DCC Fehler] Regin.pas(210): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TMemoryStream' gefunden

Kann mir vill jemand sagen woran das liegt ?

schonmal vielen dank
5etH

[edit=Admin]Beitrag neu in den Cache eingetragen. Mfg, Daniel[/edit]