код из С++ в delphi!

[oxygen-xz]

прошу перевести
программный код с С++ (C++Builder) в Delphi

///

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int __fastcall comp(void * it1, void * it2)
{
  int *i1 = (int*) it1;
  int *i2 = (int*) it2;
  if (*i1>*i2)
    return 1;
  if (*i1<*i2)
    return -1;
  return 0;

}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender){
   randomize();
   ProgressBar1->Position = 0;
   ProgressBar1->Visible = true;
   TList *Mas = new TList;
   int sussesful = 0;
   int kol = Edit1->Text.ToInt();
   int ext = Edit2->Text.ToInt();
   int ext2 = Edit3->Text.ToInt();
   int extbar = Edit4->Text.ToInt();
   int ex = extbar*1000;
   int vec[10];
   for (int j=0;j<kol ;j++) {
     Mas->Add(&vec[j]);
   }
   for (int i=0;i<ex ;i++) {
     if (i % extbar == 0) {
       ProgressBar1->Position++;
     }
     for (int j=0;j<kol ;j++) {
       vec[j]= rand() % ext;
     }
     Mas->Sort(comp);
     int k=0;
     int *it1,*it2;
     for (int j=0;j<kol-1 ;j++) {
       it1 = (int *)Mas->Items[j];
       it2 = (int *)Mas->Items[j+1];
       if (*it1+ext2 > *it2)
         k=1;
     }
     sussesful += k;
   }
   Label5->Visible = true;
   double res = double(sussesful)/double(ex) ;
   StaticText1->Caption=Format("%6.4f",ARRAYOFCONST((res)));
   StaticText1->Visible = true;
}
//-------------------------------------------------------------------------

спасибо!




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Valio]

А зачем его переводить?

[oxygen-xz]

сделали в С++ а надо тоже самое в Делфи!
:-(