из builder c++ в delphi

[alexey9999]

помогите перевести код из builder c++ в delphi
1)

void recurs(int i,int j,int ruld){//ruld=1,2,3,4
        if(ruld==1){//j-1
                a[i][j].l=a[i][j-1].r;
                if(a[i][j].inf==3||a[i][j].inf==4){
                        if(a[i][j].l==0){
                                a[i][j].inf=4;
                        }
                        if(a[i][j].l==1){
                                a[i][j].inf=3;
                        }
                }
                if(a[i][j].inf==9){
                        if(a[i][j].l==0){
                                a[i][j].r=1;
                        }
                        if(a[i][j].l==1){
                                a[i][j].r=0;
                        }
                        if(j+1<n){
                                recurs(i,j+1,1);
                        }
                }

2)

void __fastcall TForm1::FormPaint(TObject *Sender)
{
        paint();
}
//---------------------------------------------------------------------------
int x1,y1;
bool mdown=false,mdown2=false;
void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        x1=X;
        y1=Y;
        if(Button==1){
                mdown=true;
                PaintBox1->Cursor=crHandPoint;
        }
        if(Button==0&&proverka==false){
                mdown2=true;
                int k=(Y-y0)/h0,l=(X-x0)/h0;
                a[k][l].inf=pero;
        }
        if(proverka){
                int k=(Y-y0)/h0,l=(X-x0)/h0;
                if(k>=0&&k<n&&l>=0&&l<n){
                        if(a[k][l].inf==1){
                                a[k][l].inf=2;
                                a[k][l].r=0;
                                recurs(k,l+1,1);
                        }
                        else if(a[k][l].inf==2){
                                a[k][l].inf=1;
                                a[k][l].r=1;
                                recurs(k,l+1,1);
                        }
                }
        }
        paint();
}