как производить вычесление с клавиатуры?

Добрый день!Подскажите, как производить вычесление с клавиатуры?Делал так: void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,TShiftState Shift){switch (z) {case VK_ADD : x1+=x2 ; break; // Addcase VK_MULTIPLY: x1*=x2; break; // Mulcase VK_SUBTRACT: x1-=x2; break; // Subcase VK_DIVIDE: x1/=x2; break; // Div}Как сделать так, чтобы работало?