[fpc-pascal]Convert C to Pascal

[Peter Vreman]

> Thanks for your help,
>
> 1. that means this command
>     reg_drq_block_call_back = 0;
>     is in Pascal
>     reg_drq_block_call_back := nil;
>
> 2. if ( ! reg_drq_block_call_back )
>     {
>        ...
>     }
>     is in Pascal
>     if reg_drq_block_call_back = nil then
>     begin
>        ...
>     end;
>
> 3. if ( reg_drq_block_call_back )
>     {
>       (* reg_drq_block_call_back) ( & reg_cmd_info );
>     }
>     is in Pascal
>     if reg_drq_block_call_back <> nil then
>     begin
>        reg_drq_block_call_back(Addr(reg_cmd_info));
> or
>        reg_drq_block_call_back(@reg_cmd_info);
>     end;
>
> Is this correct ?

Yes