[san-46]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  XlApp, WSh, Rng : Variant;
begin
  try
    XLApp:= CreateOleObject('Excel.Application');
  except
    on E : EOleError do begin
      ShowMessage('MS Exel отсутствует на компьютере!');
      Exit;
    end;
  end;

  try
    XLApp.DisplayAlerts := false;

    XLApp.Workbooks.Open('C:\WORK\For Excel\bilet.xls'); //имя файла excel
    WSh := XLApp.WorkBooks[1].WorkSheets[1]; //книга и лист
    WSh.Select;

    Rng := WSh.Cells[2, 1]; //номер строки, номер столбца (начинаются с 1)
    Rng.Select;
    Rng.Interior.ColorIndex := 8;  // Cyan

    XLApp.Visible := True;
    XLApp.DisplayAlerts := True;
  finally
    WSh := Unassigned;
    XLApp := Unassigned;
  end;
end;

И причем здесь API.