1:

Statement1:Statement2?Statement3;					

1:

If Statement1 then Statement2 else Statement3;					

1:
2:
3:

  [...]
  i := IfThen(a > b, 1, 2);
  [...]					

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

  [...]
  if a>b then
    i:=1
  else
    i:=2;
  [...]					

1:
2:
3:

if bedingung then
  wert := funktion1 else
  wert := funktion2;					

1:

wert := IfThen(bedingung, funktion1, funktion2);					

1:
2:
3:
4:

function fact(n: integer): integer;
begin
  result := IfThen (n>1, 1, fact(n-1));
end;					

1:

zeichen := IfThen(length(satz)<5, #0, satz[5]);					

1:

wert := if bedingung then 1 else 2;					

1:
2:
3:
4:
5:

const
  cStatementArray : array[boolean]of cardinal =
    (0,MF_GRAYED);
  cTextArray : array[boolean]of string =
    ('aus','an');					

1:
2:

AppendMenu(hm,MF_STRING or cStatementArray[fEnable],
  IDC_MENUITEM1,cTextArray[fOn]);					

1:
2:
3:
4:

case a>b of
  true : doBla();
  false: doGna();
end;					

1:
2:
3:
4:
5:

case a of
  1: ...
  2: ...
  3: ...
end;					

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

if a=1 then
  ...
else if a=2 then
 ...
else if a=3 then
  ...					

1:

Condition?Statement1(true):Statement2(false)					

1:
2:
3:
4:

If A=1 then
  //...
else
  /...					

1:
2:
3:
4:

If A=1 then
  //...
If A=2 then
  //...					

1:
2:
3:

res := A=1;
if res = true then...break;
if res = false then...;