Buchstaben konvertieren

[Tommy1988]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text: string;
    i   : Integer;
begin
  Text := LowerCase(Memo1.Text);
  for i := 1 to 26 do begin
    while Pos(alpha[i], Text) <> 0 do begin
Text[Pos(alpha[i], Text)] := haxxor[i]; // Inkomptbl. Typen Char und WideChar
    end;
  end;
  RichEdit1.Text := Text;
end;

Wie und was muss ich in dieser Reihe oder in dem Block ändern, damit es WideChar kompatibel ist?