[lmikle]

Код:

function LetterCount(AText : TStringList; ALetter : Char) : Integer;
var
  I, J : Integer;
begin
  Result := 0;
  For I := 0 To Atext.Count - 1 Do
    For J := 1 To Length(AText[i]) Do
      If AText[i][J] = ALetter Then Inc(Result);
end;

В AText - Memo1.Lines - возможно, придется так: TStringList(Memo1.Lines)
В ALetter - Memo2.Lines.Text[1] - первая буква
результат функции - кол-во ALetter в AText - целое число. Для вывода в Memo3 - Memo3.Lines.Text := IntToStr(...);