Delphi IF extend LimCheck

Function if_int(zeroone:wordbool;var1,var2:integer):integer;
 Function if_intl(tzxthen,tzxelse:integer;zeroone:wordbool):integer;
 Function if_bol(zeroone:pBoolean;setq:boolean;rettype:byte):wordbool;
 Function if_dbl(zeroone:boolean;var1,var2:ads_real):ads_real;

  Function if_int(zeroone:wordbool;var1,var2:integer):integer;
    Begin if_int:=var1;if (zeroone) then exit;if_int:=var2;exit;
          winhlp32('Delphi3:=Nu functioneaza frmMainWnd=nil;bDummy := if_int(frmMainWnd=nil,7,frmMainWnd.BorderColor);');
    End;

    Function if_str(accessCheck:boolean;var1,var2:string):string;
       Var angdir:integer;
         Begin if accessCheck  then if_str:=var1  else if_str:=var2;
               angdir:=length(result); 
         End;