格式化货币编号

Question

procedure TfrmTESTE.edtVALOR(Sender: TObject);
  begin
    inherited;
    if (Trim(edtArea.text) <> '') and (Trim(edtVALOR.text) <> '') then
        edtVALOR.text := floattostr(StrToFloat(edtArea.text) *
        StrToFloat(edtVALOR.text))
    else
        edtVALOR.text :=  '0,00';
    Exit;
  end;

clientdataset中的所有字段设置货币和displayformat =＃，0.00，谢谢！