procedure TfrmMain.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.', '0'..'9']) and (key <> #13) and ((key <> #46)) and ((key
<> #8)) then
Key := #0;
end;
procedure TfrmMain.editoldvalueKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.', '0'..'9']) and (key <> #13) and ((key <> #46)) and ((key
<> #8)) then
Key := #0;
end;