مشکل با فرمت اعداد اعشاری در DBEdit

سلام
در فرم برنامه ام چند DBEdit دارم که باید اعداد اعشاری را نمایش دهد (فقط نمایش غیر قابل ویرایش). من میخوام اعداد را با دو رقم اعشار نشان دهد. اگر در دیتا بیس در یک فیلد 21.1 باشد 21.1000003814697 نشان میدهد!!
فعلا روی هر TDBEdit یک TEdit گذاشته ام و در رویداد OnChange اولی این را نوشته ام:

Edit1.Text:=FloatToStrF(StrToFloat(DBEdit1.Text),f  fFixed,10,2);

ولی می دانم که کار اصولی نیست
چه کار کنم؟

D: Double {or Single, float ,... }



..



Edit1.Text:= FormatFloat( '0.00', D);

مشکل من با فرمت کردن داخل TEdit نیست. من میخوام اطلاعات TDBEdit را فرمت کنم
اون را حلی که شما دادید و اونی که خودم نوشته ام یک نتیجه دارد اما راه حل اساسی نیست