在线等！请问谁能把这段VBA代码给转换成Delphi代码啊？(50)

Sub ronhy()Dim i&Application.DisplayAlerts = FalseFor i = Sheet1.Range("a65536").End(xlUp).Row To 2 Step -1If Cells(i, 1) = Cells(i + 1, 1) then
Range("a" & i).Resize(2, 1).MergeNext iApplication.DisplayAlerts = TrueEnd Sub

procedure ronhy;var i:integer;
begin
with Execel1do
begin
Application.DisplayAlerts := False For i := Sheet1.Range('a65536').End(xlUp).Rowdo
wnTo 2do
If Cells(i, 1) = Cells(i + 1, 1) then
Range(a+Trim(IntTostr(i))).Resize(2, 1).Merge;
Application.DisplayAlerts := True end;
end;

顶楼上！

上面这个问题就是下面的EXCEL表格：要把第一列相同的单元格分别合并起来，用上面的答案不能合并。请大侠给看看用Dephi如何实现。新闻频道 部门动态 各部门的重要新闻 及时政务公开频道 机构职能 单位的机构职能 发布当日政务公开频道 专题专栏 国家卫生城市创建等 发布当日政务公开频道 行政许可 行政许可有关知识、信息发布 即时政府信息公开频道 部门 信息公开指南 即时政府信息公开频道 依申请公开 依申请公开流程图及表单 即时特别关怀专栏 证照资格 办事指南及相关政策知识解答 即时企业专栏 资质认证 办事指南及相关政策的知识解答 即时企业专栏 综合其它 相关事项的办事指南 即时特色服务专栏 办事部门 各办事服务部门便民服务介绍 即时特色服务专栏 特色服务 为市民提供的特色服务信息 即时政民互动频道 民意征集 网上征集，听取公众意见和呼声 发布当日概况频道 社会事业 社会公共事业发展情况 即时发布概况频道 社会发展 社会发展情况 即时发布