Скатерть Улама - помогите доработать прогу :)

int simple(int n) {
int i;
int ret=1;
for(i=2;i<=(int)sqrt(n);i++)
if((n%i)==0) {
        ret=0;
        break;
}
return ret;
}
 
void ulam(int n,int x, int y,int nx, int ny,TImage * Image1){
   if(n<Image1->Width*Image1->Height) {
        int i;
        for(i=1;i<=ny;i++) {
                --y;
                ++n;
                if(simple(n))
                        Image1->Canvas->Pixels[x][y]=clBlack;
        }
        nx=ny+1;
        for(i=1;i<=nx;i++) {
                --x;
                ++n;
                if(simple(n))
                        Image1->Canvas->Pixels[x][y]=clBlack;
        }
        ny=nx;
        for(i=1;i<=ny;i++) {
                ++y;
                ++n;
                if(simple(n))
                        Image1->Canvas->Pixels[x][y]=clBlack;
        }
        nx=ny+1;
        for(i=1;i<=nx;i++) {
                ++x;
                ++n;
                if(simple(n))
                        Image1->Canvas->Pixels[x][y]=clBlack;
        }
        ny=nx;
        Application->ProcessMessages();
        ulam(n,x,y,nx,ny,Image1);
   }
}