أكواد نادرة في لغة البرمجة delphi

[right]ExtractShortPathName(GetCurrentDir) تعليمة لأخذ مسار الملف التنفيذي للمشروع
LOADKEYBOARdlayout('00000401',klf_activate); تعليمة لجعل اللغة عربية
LoadKeyboardLayout('00000409',klf_activate); تعليمة لجعل اللغة إنكليزية
تعليمة للكتابة بمربع النص بالأرقام فقط و عدم وضع أكثر من فاصلة واحدة (آلة حاسبة)
if key='.' then
begin
if (Pos('.',Edit1.Text)>=1)
then key:=#0 else key:='.'
end
else
if not (key in ['0'..'9',#8,'.'])
then
key:=#0;
وأرجو من الأعضاء في المنتدى عدم الخجل في طرح أي سؤال يتعلق بلغة البرمجة هذه وميت السلامة
وكل عام وأنت بألف خير