Pārbaudīt vai ir ievadīts cipars (delphi)

Tātad man uz formas ir Textbox1 un button1.
Kā varetu panākt to kad Textbox' ā  tiek ierakstits burts un nospiežot button1 paradas message('ievadits ir burts, ludzu izlabo uz ciparu');

man bija doma tāda:

Begin
Var: f:Text;
bla bla
if Textbox1.Text = f then
ShowMessage('ievadits ir burts, ludzu izlabo uz ciparu');

Bet tas neko nemaina, nekas nenotiek.
Ceru ka sapratāt manu problēmu.