делфи веществ. и отрицат.

[ччч1]

[DELPHI]procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#13:Edit2.SetFocus;
#8:;
if not
else key:=chr(0);
end;
end;
[/DELPHI]
помогите пожалуйста сделать,чтобы можно было вводить отрицательные числа и числа с точкой