Руски или английски букви в низ?

Здравейте майстор! :)
там edit1. Аз Flip Тя английски букви на руски и обратно!
да се мотае две процедури по един ключ, което трябва да се определи кои писма edit1 на руски или английски език?
Опитах се чрез inttostr (ключ), който подава същото с тази на Руски Engl :(
Какво да се прави?

> Дръж ключова необходимост, за да се две процедури
> Определете какво писма edit1 на руски или английски език?

И къде е "ключът" (ключ)?
Проверка на текста в редакцията. Ord (Edit1.Text [1])

Написах в процедура TForm1.Edit1KeyDown (Подател: TObject; Var Ключ: Word;
# XA0; Shift: TShiftState);

Edit. Ord (Edit1.Text [1]), нещо, което аз нищо не разбират,

> Промени. Ord (Edit1.Text [1]), нещо, което аз нищо не разбират,

Това беше в оригинал:
Проверка на текста в редакцията.
Ord (Edit1.Text [1])

И така, какво искаш? Определете кой в ​​този момент вече имаме писма Edit1? Или "какво писмо" се опитва да се вмъкне потребителското Edit1?

Текстът е написан каже "aolvzhfoavado" и аз трябва да знам какво е руски или английски език!

процедура TForm1.Button9Click (Sender: TObject);
# XA0; Var к, I, п: цяло число;
# XA0; ул: низ [50];
# XA0 х: знак;
# XA0; ите: низ;
# XA0; започне
п: = 1;
защото: = 0 до edit1.SelLength направя започне
# XA0; ул: = edit1.Text;

# XA0; к: = РСР (ул [п]);
# XA0; ако # XA0 К<65  then begin
# XA0; showmessage ( "номера");
// к: = РСР (ул [М + 1]);

# XA0; край;
# XA0; ако (к> 65) и (к<=122) then begin
# XA0; showmessage ( "инж");
# XA0; // к: = РСР (ул [М + 1]);
Ами ето я вмъкнем преврат писма
# XA0; край;
# XA0; edit16.Text: = inttostr (к); // показва ключ код
# XA0; край;

Тя дава една много интересна :)
всичко работи тук подвежда само с числа се нуждаят от тях, за да скочи, докато на времето в което не се намира с буквата И като видя езика на код находка :)
СЕТО тук отрепките! или аз просто искам да спя :)

Аз завърши нея все едно :) # XA0; Благодаря за вашата помощ.
започвам
п: = 1;
L1, защото аз: = 0 до edit1.SelLength започвайте
# XA0; ул: = edit1.Text;
# XA0; к: = РСР (ул [п]);
# XA0; ако # XA0 К<65  then begin
# XA0 п: = п + 1;
Иди L1;
# XA0; край;
# XA0; ако (к> 65) и (к<=122) then begin
# XA0; # XA0; button13.Click ;; // превежда на руски език
# XA0; # XA0; край
# XA0; останало
# XA0; започне
# XA0; b1.Click; // превежда на английски език
# XA0; приключи;
# XA0; edit16.Text: = inttostr (к);
# XA0; край;

Памет: 0.74 MB
Време: 0.05 в