کد که توضیح نمی خواد عینا استفاده کنید. میمونه StrToInt1(TEdit(Sender).Text) که اونهم میتونید خودتون با استفاده از روشهائی که آقای خرشندی گفتن پیاده سازی اش کنید