stringgrid的ongeteditmask事件中，怎么样输数字的时候不要下划线？ (30分)

ongeteditmask事件：
procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
if acol=2 then
value:='00000.00';
end;
输数字的时侯出现下划线，好难看！
value参数怎么样用？