function EXCELStarten (var m_EXCEL : Variant): boolean;
begin
   try
    m_EXCEL := CreateOleObject('Excel.Application');
    Result := TRUE;
  except
    ShowMessage('Excel konnte nicht gestartet werden!');
    Result := FALSE;
    Exit
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ArtNr, ArtBez : string;
    Excel: Variant;
begin
    if EXCELStarten(Excel)then // Excel startet
  begin
    ShowMessage('MSExcel ist erfolgreich gestartet worden!!');
  end
  else
  begin
     ShowMessage('MSExcel konnte nicht gestartet werden!!');
  end;

  Excel.Application.Workbooks.Add; // Neue Arbeitsmappe öffnen in EXECL
  Excel.Visible := TRUE; // TRUE = Excel sichtbar.
  Excel.Worksheets[1].Activate;
  ArtNr:= '4711';
  ArtBez:= 'Wasser';
  Excel.Cells[2,3]:= ArtNr;
  Excel.Cells[2,4]:= ArtBez;
  Excel.Worksheets[2].Activate;
  Excel.Cells[2,3]:= ArtNr;
  Excel.Cells[2,4]:= ArtBez;
  Excel.Quit;
end;