Excel - Export ohne Excel - Problem beim erzeugen

[padavan]

Hallo Delphianer,

habe folgendes Problem:

mit diesem Code lässt sich mit einer zusätzlichen Unit eine Excel-Datei erzeugen ohne eine lauffähige Installation:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var XLSFile : TXLSExport;
    x, y    : Integer;
begin
  if savedialog1.Execute then begin
    if fileexists(savedialog1.filename) then DeleteFile(savedialog1.filename);
    XLSFile := TXLSExport.Create(savedialog1.filename);
    try
      y := 0;
      table1.DisableControls;
      table1.First;
      while not table1.eof do begin
        if y = 0 then begin  // Kopfzeilen
           for x := 0 to table1.FieldCount-1 do XLSFile.Write( x, y, table1.Fields[x].displayname);
        end else for x := 0 to table1.FieldCount-1 do begin
          case table1.Fields[x].DataType of
            ftDate,
            ftTime,
            ftDateTime,
            ftBoolean,
            ftString,
            ftFixedChar  : XLSFile.Write( x, y, table1.Fields[x].asstring);
            ftAutoInc,
            ftSmallint,
            ftInteger,
            ftWord       : XLSFile.Write( x, y, table1.Fields[x].asInteger);
            ftFloat,
            ftCurrency   : XLSFile.Write( x, y, table1.Fields[x].asFloat);
          end;
        end;
        inc(y);
        table1.next;
      end;
      XLSFile.free;
    finally
    end;
    table1.EnableControls;
  end;
end;

Diese habe ich abgeändert, da ich im Prinzip das gleiche aber aus einer Stringgrid exportieren möchte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var XLSFile : TXLSExport;
    x, y    : Integer;
    Spalten, Zeilen: String;
begin
  if savedialog1.Execute then begin
    if fileexists(savedialog1.filename) then DeleteFile(savedialog1.filename);
    XLSFile := TXLSExport.Create(savedialog1.filename);
    try
      y := 0;
      repeat
        Spalten := StringGrid2.Cells[x,y];
        XLSFile.Write(x,y,Spalten);
        x := 0;
        repeat
          Zeilen := StringGrid2.Cells[x,y];
          XLSFile.write(x,y, Zeilen);
          x := x + 1;
        until x = StringGrid2.ColCount;
        y := y + 1;
      until y = StringGrid2.RowCount;
    finally
      XLSFile.free;
    end;
  end;
end;

Nun funktioniert das aber nicht richtig, die Datei wird zwar erzeugt, aber nicht korrekt. Das heißt Excel XP kann sie öffnen, sagt aber, dass die Datei repariert werden musste. Nach dem Öffnen ist sie dann auch so wie sie sein soll.

Dennoch ist dieser Zustand logischerweise unbefriedigend.

Meine Vermutung ist, dass es daran liegt:
XLSFilewrite(x,y, .....asstring); Obwohl ich dachte, dass ein String nicht extra umgewandelt werden muss, ist wohl doch so, anders kann ich es mir nicht erklären.

Meine Frage ist nun, wie lautet die korrekte Syntax für meinen modifizierten Programmteil?
Habe alles mögliche versucht, Delphi bietet in der IDE sogar was an, meckert dann aber beim Übersetzen.

XLSFilewrite(x,y,asstring(Zeilen); Danke im Voraus