Edit

[PAVEL315]

Я сделал так:

const a='qwertyuiop[]asdfghjkl;zxcvbnm,./'
const b='йцукенгшщзхъфывапролджячсмитьбю.'
var i:integer; s, c:string;
 
procedure TForm1.Button1click(Sender: TObject);
begin
s:=edit1.text;
for i:=1 to length(s) do begin
c:= copy(b, pos(s[i],a),1);
delete(s,i,1);
insert(c,s,i);
end;
Edit1.Text:=s

Вот только 1 минус:
нет буквы "Э"