1:
2:
3:
4:

var
Zeichen : Integer;
...
Zeichen := Length(Memo1.Text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  Temp: String;
  e, i: Integer;
begin
  e := 0;
  Temp := Memo1.Text;
  for  i:= 1 to Length(Temp) do if UpperCase(Temp[i]) = 'E' then Inc(e);
  ShowMessage(Format('"e" kütt %d mal vor', [e]))
end;					

1:

for  i:= 1 to Length(Temp) do if UpCase(Temp[i]) = 'E' then Inc(e);					

1:
2:
3:
4:
5:
6:
7:

function anzahl (text : STRING; zeichen : CHAR) : Integer;
VAR position : INTEGER;
begin
  position:=Pos(zeichen,text);
  if position=0 then result:=0 else
  result:=1+anzahl(Copy(text,position+1,Length(text)-position),zeichen);
end;					

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

var
g,w,z : Double;
p,s : String;
---
z := Length(Memo1.Text);
  p:= Format('%d', [e]);
  txt_gesZeich.Text := p;
  w := 100;
  g := StrToFloat(p) * w / z;
  Memo_Prozent.Lines.Add('A = ' + FloatToStr(rund(g,2)) + ' %');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function Anzahl(Ch: Char): Integer;
var
  Temp: String;
  e, i: Integer;
begin
  e := 0; 
  Temp := Form1.Memo1.Text;
  for  i:= 1 to Length(Temp) do if UpCase(Temp[i]) = Ch then Inc(e);
  Result := e;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i, a: Integer;
begin
  for i := 1 to Length(Str) do begin
    a := Anzahl(Str[i]);
    ListBox1.Items.Add(Format('"%s" kommt %d mal vor', [Str[i], a]));
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

function CalcChar(const szInString: AnsiString;
  const sChar: char): integer;
var
  pSrc : pchar;
begin
  Result := 0; if(length(szInString) = 0) then exit;

  pSrc   := pointer(szInString);
  if(pSrc = nil) or (pSrc^ = #0) then exit;

  while(pSrc^ <> #0) do
    begin
      if(UpCase(pSrc[0]) = UpCase(sChar)) then inc(Result);
      inc(pSrc);
    end;
end;

function peter(text: STRING; zeichen: CHAR): integer;
VAR
  position : INTEGER;
begin
  position := Pos(zeichen,text);
  if position = 0 then result := 0
    else result := 1 + peter(Copy(text,position+1,Length(text)-position),zeichen);
end;

function popov(temp: string; zeichen: char): integer;
var
  i: Integer;
begin
  Result := 0;
  for i  := 1 to length(temp) do
    if(upcase(temp[i]) = Upcase(zeichen)) then inc(Result);
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  s : string[1];
begin
  s := InputBox('Buchstabensuche','Geben Sie den Buchstaben an','A');
  ShowMessage(
  Format('Der Buchstabe %s wurde von meiner Funktion %d mal gefunden,' + #13#10 +
    'von Peters Funktion %d mal,' + #13#10 + 'und von popovs Funktion %d mal.',
    [s[1],
     CalcChar(Memo1.Lines.Text,s[1]),
     peter(Memo1.Lines.Text,s[1]),
     popov(Memo1.Lines.Text,s[1])]));
end;					

1:
2:
3:

6638878 : 6638879  // meine Funktion
6638879 : 6640359  // Peters Funktion
6640359 : 6640364  // popovs Funktion