1:
2:

uses
..., StrUtils ,...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

while x = false do
begin
if pos('#',l)=0 then         //wenn er nichts findet ist der Wert=0
                 begin
                  x:=true;
                 end
                else
                 begin
                  zahl:=zahl+1;
                  Delete(l,0, pos('#',l));
                  if length(l)=0 then x:=true;
                 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

zahl := 0; // wichtig! erst initialisieren!
while not x do // nicht x, also x = false ;-)
begin 
  if pos('#', l) = 0 then //wenn er nichts findet ist der Wert=0
  begin 
    x := true; 
  end 
  else 
  begin 
    zahl := zahl + 1;
    Delete(l, 1, Pos('#', l)); // Wenn du von Null aus löschst, dann ist das falsch (s.u.)
    if Length(l) = 0 then 
      x := true; 
  end; 
end;					

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

zahl := 0; // wichtig! erst initialisieren!
while (Length(l) > 0) and (Pos('#', l) > 0) do 
  // Solange noch eine Raute gefunden wird und noch was in l drin ist
begin
  Inc(zahl); // Inkrementiert zahl, also erhöht zahl um eins
  Delete(l, 1, Pos('#', l)); // Wenn du von Null aus löschst, dann ist das falsch (s.u.)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  Wort    :  String;    // da kommt halt der zu untersuchende string rein...
  Anzahl  :  Integer;   // die anzahl des zeichens...
  i       :  Integer;   // laufvariable für die schleife
  
begin

 anzahl  :=  0; 

 for i := 1 to length(wort) do                      // hier wir geschaut wie lang der string ist und dann jedes einzelne zeichen überprüft
   begin
     if (wort[i] = 'e') or (wort[i] = 'E') then     // wenn das i-te zeichen ein e ist (du kannst auch ne variable machen und dann halt nach dem zeichen
       anzahl  :=  anzahl + 1;                      // suchen was du möchtest) dann soll anzahl um einen erhöht werden....wichtig ist das du bei buchstaben
   end;                                             // zwischen groß und kleinbuchstaben differenzierst...die zahl kannste dann ja in nem label ausgeben oder
                                                    // so					

1:

if (wort[i] = 'e') or (wort[i] = 'E') then					

1:

if UpCase(wort[i]) = UpCase('a') then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function CountLetter(Word: String; Letter: Char): integer; 
//wenn du auch mehrere Buchstaben suchen  
//willst (also z.B. "Blub") dann musst aus dem Char einfach String machen
begin
 Word:=AnsiLowerCase(Word); //AnsiLowerCase funzt auch bei Ä usw.
 Letter:=AnsiLowerCase(Letter);
 Result:=0;
 
 if Letter<>'' then
   while Pos(Letter,Word)>0 do
     begin
       Result:=Result+1;
       Delete(Word,1,Pos(Letter,Word)+Length(Letter));
     end;
end;