Как оптимизировать код? - Lazarus - Ответ 6726636

for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.А', Memo2.Lines.Strings[j]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.А', 'А', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Б', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Б', 'Б', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.В', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.В', 'В', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Г', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Г', 'Г', [rfReplaceAll, rfIgnoreCase]);
    end;
 
    ........................................................
 
    for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Ю', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Ю', 'Ю', [rfReplaceAll, rfIgnoreCase]);
    end;
    for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Я', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Я', 'Я', [rfReplaceAll, rfIgnoreCase]);
    end;