По Button1 и Button5 в Edit1

[xRamzeSx]

Всем доброго времени суток!
Кто знает, каков код процедуры, который выполняется следующим образом:
При нажатии на кнопу Button1, в Edit1 появляется какой-нибудь символ... При нажатии на кнопку Button2, в Edit1 так же добавляется символ, при этом сорхраняя предыдущий, который был из Button1.
Если кто знает, помогите.

[W0LF]

Edit1.Text := Edit1.Text + '$';

При этом придыдущий текст из Edit1 сохранить и к нему добавиться знак "$".