Добро пожаловать на наш портал

Заходим в обработчик событий onClick второй кнопки и пишем там:

Между Procedure и Begin

Var a, a1:string;
i:integer;

После Begin

a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='1' then a1:=a1+'п';
if a[i]='2' then a1:=a1+'р';
if a[i]='3' then a1:=a1+'и';
if a[i]='4' then a1:=a1+'в';
if a[i]='5' then a1:=a1+'е';
if a[i]='6' then a1:=a1+'т';

После End

memo1.Text:=a1;

Если будет ошибка то после "memo1.Text:=a1;" напишите end;

В итоге должно получиться так:

procedure TForm1.Button1Click(Sender: TObject);
Var a, a1:string;
i:integer;
begin
a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='п' then a1:=a1+'1';
if a[i]='р' then a1:=a1+'2';
if a[i]='и' then a1:=a1+'3';
if a[i]='в' then a1:=a1+'4';
if a[i]='е' then a1:=a1+'5';
if a[i]='т' then a1:=a1+'6';
end;
memo1.Text:=a1;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var a, a1:string;
i:integer;
begin
a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='1' then a1:=a1+'п';
if a[i]='2' then a1:=a1+'р';
if a[i]='3' then a1:=a1+'и';
if a[i]='4' then a1:=a1+'в';
if a[i]='5' then a1:=a1+'е';
if a[i]='6' then a1:=a1+'т';
end;
memo1.Text:=a1;
end;