StringGrid Inhalt Speichern?

[Borschti]

Hier ist nochmal der Code Abschnitt

Delphi-Quellcode:

type
  Bearbetien1: TMenuItem;
  Speichern1: TMenuItem;
  SaveDialog1: TSaveDialog;
  N3: TMenuItem; 
  TSaveOption = (soSaveCols, soExcludeFixed);  // Hier der Fehler
  TSaveOptions = set of TSaveOption;  
  procedure ffnen1Click(Sender: TObject);
  procedure Druckereinstellungen1Click(Sender: TObject);
  procedure Drucken1Click(Sender: TObject);

Fehlermeldung lautet: ':' erwartet, aber '=' gefunden. Hab schon ausprobiert es mit den "Anweisungen" der Fehlermeldungen zu lösen aber irgendwann wirds einfach nurnoch schräg. Auserdem Merkwürdig ist das mir die Meldungen die sich auf den Teil beziehen mir in Fenstern ausgegeben werden, die anderen aber nicht :/

Und hier nochmal der gesamte Ausschnitt mit dem es zusammenhängt.

Delphi-Quellcode:

type 
  TSaveOption = (soSaveCols, soExcludeFixed); 
  TSaveOptions = set of TSaveOption; 

procedure SaveGrid(sg: TStringGrid; s: TStream; so: TSaveOptions = []); 
var 
  iLow, iHigh, i: Integer; 
  ss: TStringStream; 
  bSaveCols, bExcludeFixed: Boolean; 
begin 
  ss := TStringStream.Create(''); 
  with sg do 
  begin 
    bSaveCols := soSaveCols in so; 
    bExcludeFixed := soExcludeFixed in so; 
    if bSaveCols then 
    begin 
      iLow := IfThen(bExcludeFixed, FixedCols); 
      iHigh := Pred(ColCount); 
    end else 
    begin 
      iLow := IfThen(bExcludeFixed, FixedRows); 
      iHigh := Pred(RowCount); 
    end; 
    for i := iLow to iHigh do 
    begin 
      ss.Size := 0; 
      if bSaveCols 
        then ss.WriteString(Cols[i].CommaText + sLineBreak) 
        else ss.WriteString(Rows[i].CommaText + sLineBreak); 
      ss.Position := 0; 
      s.CopyFrom(ss, ss.Size); 
    end; 
  end; 
  ss.Free; 
end;

mfg
Alex