有关向文本框添加数据的问题 急！急！给分70

Question

用以下函数:
  FloatToStr(FloatTypeData):将其转换为String;
  Round(）：四舍五入函数，保留到整数位
对于第二个问题，你参考下面这段程序：
var myReal:array[0..9] of single;//实型数据数组
    NumOfPerRow:integer;//每行数的个数
    i:integer;
begin
   NumOfPerRow:=3;
   for i:=0 to 9 do
   begin
     if not (i div 3) then
       begin
       richedit.lines.add(FloatToStr(MyReal[i]);
       richedit.lines.add(',');
       end;
   end;
end;
今天在网吧，没法试验正确后再给你，不过，大概的思路是这样的