Fazer porcentagem no Lazarus(Delphi 7 para Linux)

Tenho um Edit1 e alguns buttons e quero que ao clicar no botão(%),resulte no calculo de porcentagem,por exemplo:

1000x18=18000(Clicar no botão de %) resulta em 180,porém não consigo esse resultado.

Alguém pode me ajudar?