Daten in Excel-Zellen verschieben

[Micha]

Ich pack gleich nochmal meinen Code dazu, was ich bisher so rumprobiert hab

Delphi-Quellcode:

procedure TForm1.zielclick(Sender: TObject);
var
name : string;
regist : integer;
i,r,c,s,d : integer;
begin
// zieht sich Dateinamen aus edt_dateiname und speichert Namen in Variable name
 name := edt_dateiname2.Text;
// zieht sich Register-Nr aus edt_register und speichert Nummer in Variable regist
 regist := strtoint(edt_register0.text);
// Excel öffnen
 lcid := GetUserDefaultLCID;
 excel := TExcelApplication.Create(Form1);
 excel.Connect;
// Exceldatei laden
 wb := excel.Workbooks.Open(name, emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, lcid);

// erstes Worksheet auswählen
 ws := wb.Sheets[regist] as _WorkSheet;
 excel.DisplayAlerts[GetUserDefaultLCID] := false; // optional


 for s:=0 to ws.Rows.count-1 do
  for d:=0 to ws.Columns.Count-1 do
   for r:=0 to Stringgrid1.RowCount -1 do
    For c:=0 to StringGrid1.ColCount-1 do

  begin
  // ws.Cells.Item[d +1, s +1].value := StringGrid1.Cells[c,r],

   if StringGrid1.cells[4,r] = '01.2004' then ShowMessage('test');
   showMessage(stringGrid1.cells[6,2]);
  end;                                           //c,r
// Speichern der aktuellen Datei
  excel.ActiveWorkbook.Save(GetUserDefaultLCID);
 excel.DisplayAlerts[GetUserDefaultLCID] := false; // optional
end;