1:
2:

If Memo1.Text = 'a' then Memo1.Text := '1';
If Memo1.Text = 'b' then Memo1.Text := '2';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var loop:integer;
    output:string;
begin
  output := '';
  for loop := 0 to length (memo1.Text)-1 do begin
    if memo1.Text[loop] = 'a' then
      output := output + '1';
    if memo1.Text[loop] = 'b' then
      output := output + '2';
  end;
  memo1.Text := output;
end;