String in excel

[SaFu]

Hi habe immernoch das Problem mit dem Excel und StringGrid



Vielleicht sollte ich noch erwähnen das ich immoment das so speicher

Delphi-Quellcode:

procedure TForm7.GridSpeichern;
var FileStream: TMemoryStream;
    Grid :TFileName;
    x, y, row, col,leng :Word;
    st :string;
begin
 Label3.Caption:= ComboBox1.Text + ComboBox4.Text;
 begin

  FileStream:= TMemoryStream.Create; //MemoryStream erzeugen

    col:= StringGrid1.ColCount -1; //Ab Spalte 0
    row:= StringGrid1.RowCount -1; //Ab Zeile 0

    FileStream.Write(row, SizeOf(Word)); // Zeilen zum Schreiben öffnen
    FileStream.Write(col, SizeOf(Word)); // Spalten zum schreiben öffnen

    for x:= 0 to row do //Alle Spalten in die Variable übergeben
      for y:= 0 to col do //Alle Zeilen in die Variable übergeben
       begin
        st:= StringGrid1.Cells[y,x];
        leng:= length(st);

        FileStream.Write(leng, SizeOf(Word));
        FileStream.Write(st[1], leng);
       end;
   Grid:= ExtractFilePath(ParamStr(0))+'Vertretungspläne\KW_'+(IntToStr(WeekOfTheYear(DateTimePicker1.DateTime)))+'_'+(IntToStr(yearof(DateTimePicker1.DateTime)))+'\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(Grid);
  FileStream.Free;
 end;
end;

Kann man den code jetzt nicht irgenwie umbauen und einfach als .xls speichern?