Equivalente de "IIF" (de visual) para Delphi 7

[[seoane]]

Me parece que no hay nada parecido en delphi, pero tampoco tiene mayor dificultad hacer una:

Código Delphi [-]
function iif(Value: Boolean; Str1, Str2: String): String;
begin
  if Value then
    Result:= Str1
  else
    Result:= Str2;
end;