سلام
بجای این همه کد یه کد را حتتر بذارید و قابل تغییر
یک edit روی فرم بذارید و text آن رو صفر کنید و دوبار روی edit کلیک کنید و این کد رو بنویسید
form1.alphabend:=true;
form1.alphabendvalue:=strtofloatedit1.text;
end;
همین.دیگه این همه تابع و کد نویسی نیازی نیست.