1:
2:
3:
4:

if if Boolean1 then Funcrion1(Meh, VMeh) = 0 else Function1(Meh2, VMeh2) = 0 then
begin
 Quellcode bleibt hier gleich.
end;                    

1:

if Function1(if Boolean1 then Meh, VMeh else Meh2, VMeh2) = 0 then                    

1:
2:

M_Meh.Lines.Add(ZKMeh.Attr1);
M_Meh.SelbeLine.Add(ZkeMeh.Attr2);                    

1:
2:
3:
4:
5:

Test1                    True
Test2                    True
SuperLangerTest1         True
NochLängererText2        True
KurzerText1              True                    

1:

if (1 = 1) and (2 = 2) and (3 = 3) then                    

1:
2:
3:
4:
5:

var
  LineID: Integer;
Memo1.Lines.Add('Text'); //Zeile einfügen
LineID := Memo1.Lines.Count-1; //ID der Zeile speichern
Memo1.Lines[LineID] := 'anderer Text'; //Wert der Zeile ändern                    

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

procedure AddLine(aText: String; const aValue: Boolean; const aLength: Integer);
begin
  while Length(aText) < aLength do  //solange die Länge des Textes gleiner als die gewünschte Länge ist
    aText := aText + ' ';           //füge dem String ein Leerzeichen an
  if (aValue) then
    Memo1.Lines.Add(aText + 'true')
  else
    Memo1.Lines.Add(aText + 'false');
end;                    

1:

if (Boolean1 and (Function1(Meh, VMeh) = 0)) or (not Boolean1 and (Function1(Meh2, VMeh2) = 0))) then                    

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

if Boolean1 then
  ZwischenErgebnis := Function1(Meh, VMeh)
else
  ZwischenErgebnis := Function1(Meh2, VMeh2);

if ZwischenErgebnis = 0 then
begin
 Quellcode bleibt hier gleich.
end;                    

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

if Boolean1 then
begin
  m := Meh;
  v := VMeh;
end
else
begin
  m := Meh2;
  v := VMeh2;
end;

if Function1(m, v) = 0 then
begin
 Quellcode bleibt hier gleich.
end;