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;