проверка в калькуляторе

[4UDaK]

Люди, помогите кто-нибудь, не могу додуматься.

Требуется то просто! Чтобы в калькуляторе цифры вводились не только с кнопок, но и с клавиатуры. При чем чтобы все лишнее при этом фильтровалось (знаки, буквы и тд) и при всем этом с этими цифрами можно было производить вычисления! Напишите пожалуйста процедуру, если такое возможно! Голову сломал!

[RUSt88]

могу написать за вознаграждение

[RUSt88]

procedure Tfrm_New.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
// сюда ввести можно только цифры
    case key of
        '0'..'9': ;   // если нажата цифровая клавиша, то ничего не делаем
        #08: ; // клавиша backspace
    else 
        key:= #0;    // запрещаем обработку клавиши
    end;
end;