Имеется функция на ЯВУ Pascal.

Код HTML:
IF Tmp1 THEN
BEGIN
  Tmp2 := 25;
  Tmp3 := TRUE 
END;
Могли бы помочь переписать её на CFC?