打印问题(50分)

在打印遇到个问题,字段有内容则打印出来,没内容不打印比如:
***********************************************************
员工1: 基本工资: 800 员工2: 基本工资: 800
补贴 : 200
***********************************************************
下面是个人的代码:
i :=0;
j :=1;
While not Query.Eofdo
begin
for i:=0 to 30do
begin
if (Length(Fields.value)>0) then
begin
TRMRPage(RMReport.Pages[0]).Grid.Cells[2,j].Text :=fields.value;
j:=j+1;
end;
i:=i+1;
end;
Next;
end;

请问还有什么好的算法??或者是能实现这样效果的控件也可告诉俺...