☆金額をひたすら入力する時・・・。

仕事で数十万円から数千万円の金額をひたすら入力しなければならなかったので、 下記のような処理で、テンキーの[ . ](コンマ)を[000](ゼロ３つ)に使えるようにしました。
[000]キーがあるUSBテンキーが手元になかったので、とても便利でした。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '.' then
  begin
    Edit1.Text := Edit1.Text + '000';
    Key := #0;
    Edit1.SelStart := Length(Edit1.Text);
  end;
end;