A função apresentada no código a seguir é muito útil para pequenos e rápidos testes com os mais variados tipos da linguagem Object Pascal. A mesma deve ser declarada na seção private da unit:

function IIf(Expressao: Variant; ParteTRUE, ParteFALSE: Variant): Variant;
 begin
   if Expressao then
      Result := ParteTRUE
   else
      Result := ParteFALSE;
 end;