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

function TForm1.Check(Buchstabe: String): Integer;
var
  Wort: String;
begin
  Result := 0;
  Wort := Edit1.Text; //DELPHI
  Edit1.Clear;
  for i := 1 to Length(Wort) do
  begin
    if Copy(Wort, i, 1) = Buchstabe then
      Result := Result + 1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Check(Buchstabe) <> 0 then
    messageDlg('Der Buchstabe kommt ' + IntToStr(Check(Buchstabe)) + ' mal vor!', mtInformation, [mbOk], 0);
  else
    MessageDlg('Der Buchstabe kommt nicht vor!', mtError, [mbOk], 0);
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:

procedure TForm1.Button1Click(Sender: TObject);
var st:string;
    i: integer; // Laufvariable für for - Schleife
    labelcaption:string;
    F:extended;
begin
F:=0;

st:='goolix';
for i:= 1 to length (st) do // for - Schleife, die alle Zeichen des Begriffs durchgeht
 begin
  if st[i] = Edit1.Text then  // wenn das eingegebene Zeichen im Begriff gefunden wird, dann..
  begin
  labelcaption:=label1.caption;
  delete(labelcaption,i,1); // löscht '#' an der Stelle i
  Insert(st[i], labelcaption, i);  // fügt das eingegebene Zeichen an der Stelle i ein
  label1.caption:=labelcaption;
  end else
  F:=F+ 1 div 6;
  Label2.Caption:=Floattostr(F)  ;
  if F>=10 then showmessage('You loose');
  if labelcaption=st then
  showmessage('Sieg');
 end;
 end;


procedure TForm1.FormCreate(Sender: TObject);
var st: string;
      i: integer; // Laufvariable für for - Schleife
begin
Label1.caption:= '';
st:= 'goolix'; // suchwort = goolix
for i:= 1 to length (st) do
begin
Label1.Caption:= Label1.caption + '#';  // In Label1 kommen so viele '#' wie der Begriff Zeichen hat
end;
end;