Ifthen

function IIF(AExpression: Boolean; const ATrue, AFalse: Variant): Variant;
begin
  if AExpression then
    Result := ATrue
  else
    Result := AFalse;
end;