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

procedure TForm1.Button1Click(Sender: TObject);
var chr: Char;
begin
 chr := Button1.Caption[1];
 if (Ord(chr) >= 65) and (Ord(chr) < 90) then
  Button1.Caption := Char(Ord(chr) + 1)
 else
  Button1.Caption := 'A';
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var chr: Char; // Deklaration der Variablen chr als Typ Char (einzelnes Zeichen)
begin
 // Caption gibt dir einen String (eine Kette von Zeichen) zurück. Mit den Eckigen-Klammern [] greifst du auf das Zeichen mit dem Index X innerhalb des Strings zu.
 chr := Button1.Caption[1];   Zeichen
// Ord steht für ordinal, soll heißen: Wandle das Zeichen in seinen ASCII-Code um. 65 ist hierbei der ASCII Code von A, 90 der von Z! 
 if (Ord(chr) >= 65) and (Ord(chr) < 90) then  // Ist die Bedingung erfüllt

  Button1.Caption := Char(Ord(chr) + 1) // "Erhöht" das Zeichen: Wandelt Chr in seinen ASCII Code um, erhört diesen um 1 (+1) und wandelt die Zahl wieder in das entsprechende Zeichen um
 else  // Ist die Bedingung nicht erfüllt, sind wir also schon über das Z hinaus, so setze die Caption wieder auf A
  Button1.Caption := 'A';
end					

1:

if Button1.Caption = 'klick mich' then Button1.Caption := 'A';					

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

procedure TForm5.Button1Click(Sender: TObject);
begin
      if Button1.Tag = 0 then begin
    Button1.Tag := 1;
      Button1.Caption := 'Trennen';
    end else
  if Button1.Tag = 1 then begin
      Button1.Caption := 'Verbinden';
       Button1.Tag := 0;
       end;
end;					

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

procedure TForm5.Button1Click(Sender: TObject);
begin
      if Button1.Tag = 0 then begin
       Button1.Tag := 1;
       Button1.Caption := 'Zustand 1';
        end else
         if Button1.Tag = 1 then begin
          Button1.Caption := 'Zustand 2';
          Button1.Tag := 2;
           end else
            if Button1.Tag = 2 then begin
             Button1.Caption := 'Zustand 0';//Ausgangszustand
             Button1.Tag := 0;
            end;
end;