通过TStringList保存csv文件，只要循环.Add表格里面的每行记录进去，保存即可

dlgSave := TSaveDialog.Create(nil);
  dlgSave.filter := 'CSV文件|*.CSV';
  dlgSave.DefaultExt := '*.CSV';
  dlgSave.filename := '服务.CSV';

  if dlgSave.Execute then
  begin
    if FileExists(dlgSave.filename) then
      try
        if MessageDlg('该文件已经存在,要覆盖吗？', mtInformation, [mbYes, mbNo], ) = IDYES
        then
          DeleteFile(PChar(dlgSave.filename))
        else
        begin
          Exit;
        end;
      except
        Exit;
      end;
    filename := dlgSave.filename;
    SaveCurPage(filename);
  end;

     sList := TStringList.Create;
      sList.Add('ID,***,***,***,***,***,***,***');
      for i :=  to grdVehicleList.RowCount -  do
      begin
        sList.Add(grdVehicleList.Cell[, i].AsString
          + ',' + grdVehicleList.Cell[COMNO_INDEX,i].AsString
          + ',' + grdVehicleList.Cell[VNO_INDEX, i].AsString
          + ',' + grdVehicleList.Cell[REGCOLOR_INDEX, i].AsString
          + ',' + grdVehicleList.Cell[GROUPID_INDEX, i].AsString
          + ',' + grdVehicleList.Cell[TERMINAL_TYPE_INDEX, i].AsString
          + ',' + grdVehicleList.Cell[SERVICE_END_DATE_INDEX, i].AsString
          + ',' + grdVehicleList.Cell[REMIND_INDEX, i].AsString);
      end;
      sList.SaveToFile(path);