//для русского: edit1.Text:=inttostr(ord('а')-223); //и для английского: edit2.Text:=inttostr(ord('a')-96);