Arvi Fox

// 1 -> 0
// 0 -> 1
function flip(g: integer): integer;
begin
  result := 1 xor g;
end;

// 1 - positive
// 0 - negative
function sign(f: integer): integer;
begin
  result := flip((f shr 31) and $1);
end;

function getMax(a, b: integer): integer;
var
  k, q: integer;
begin
  k := sign(a - b);
  q := flip(k);
  result := a * k + b * q;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: integer;
begin
  a := strtoint(Edit1.Text);
  b := strtoint(Edit2.Text);
  Edit3.Text := inttostr(getMax(a, b));
end;

but
if a=maxint-3, b=-20 then there is a integer overflow.

solution

function getMax(a, b: integer): integer;
var
  k, q, c, sa, sb, sc: integer;
  signofa: integer;
  signofc: integer;
begin
  c := a - b;
  sa := sign(a);
  sb := sign(b);
  sc := sign(c);
  signofa := sa xor sb;
  signofc := flip(sa xor sb);
  k := signofa * sa + signofc * sc;
  q := flip(k);
  result := a * k + b * q;
end;

Compare without if, case, <, >

var
  a, b: word;
  a1, b1: word;
begin
  a := abs(strtoint(Edit1.Text));
  b := abs(strtoint(Edit2.Text));
  a1 := a div b;
  a1 := ((a1 + 2) div (a1 + 1)) mod 2;
  b1 := (a1 + 1) mod 2;
  Edit3.Text := inttostr(a*a1+b*b1) + ' >= ' + inttostr(a*b1+b*a1);
end;