菜鸟的一个问题

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   l:Boolean;
begin
   l:=(key<#8)or(key>#8)and(key<#45)or(key>#46)and(key<#48)or(key>#57);
   if l then key:=#0;
end;这样能够控制一些非法字符的输入
但是不能控制如:<1..-456.44〉字符串的输入
请问有没有其他办法能够保证输入Edit中的是正确的real类型的数
thx