преобразовать фрагмент проги в функцию

[pavelmorash]

в задании написано посчитать и вывести количество каждой буквы русского алфавита. не могу преобразовать в функцию, подскажите, пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
const A = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var txt : string;
 i, n : integer;
begin
  for i := 1 to Length(A) do
   begin
   txt := AnsiLowerCase(Memo1.Text);
   n := Length(txt) - Length(StringReplace(txt, A[i], '', [rfReplaceAll]));
   if Count <> 0 then Memo2.Lines.Add(('символов '+A[i]+' - '+inttostr(n)+' шт.');
   end;
  end;
end;

[Alex11223]

Так проблема-то в чем именно?

Не надо "преобразовывать", надо просто сделать функцию выполняющую вашу задачу и вызвать ее.

https://ru.wikipedia.org/wiki/%D0%A4...BD%D0%B8%D0%B5)

Вывод в GUI и прочие побочные эффекты обычно лучше стараться отделять.
То есть лучше сделать, чтобы эта функция/процедура не выводила сама в GUI, а возвращала какой-нибудь массив, TDictionary (Дельфи 2009+) и т.п., ну или хотя бы строки.

[pavelmorash]

выходят пустые значения