Ошибка в переводе кода

[Waqq]

Доброго времени суток!
Помогите пожалуйста найти ошибку в переводе кода с С++ на Delphi
C++

void Terrain::LoadRawFile(const char *FileName, int nSize, BYTE *pHeightMap)
{
	FILE *pFile = NULL;	
	pFile = fopen( FileName, "rb" );

	if ( pFile == NULL )	
	{
		MessageBox(NULL, "Can't find the Height Map data file", "Error", MB_OK);
		return;
	}
	
	fread( pHeightMap, 1, nSize, pFile );
	fclose(pFile);
}

Delphi

procedure LoadRawFile(const FileName:String;nSize:integer;pHeightMap:BYTE);
var
  pFile:TFileStream;
begin
  pFile:=TFileStream.Create(FileName, fmOpenReadWrite);
if pFile=nil then
    begin
	MessageBox(0, 'Can t find the Height Map data file', 'Error', MB_OK);
        Exit;
    end;
  pFile.ReadBuffer(pHeightMap,1);
  pFile.Destroy;
  end;

C++

void Terrain::RenderLandscape()
{

	glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
	glClearColor(.25f, .25f, .75f, .25f);
	glPushMatrix();

	int x,y,i,j;
	

	glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
	glColor3f(0,0.5f,0);						
	for (i=0;i<128-1;i++)
	{
		for (j=0;j<128-1;j++)
		{	
			x=i*16;
			y=j*16;

			glBegin(GL_TRIANGLE_STRIP);	
				glVertex3f(x,		y,		HeightMap[i][j]);
				glVertex3f(x+16,	y,		HeightMap[i+1][j]);				
				glVertex3f(x,		y+16,	HeightMap[i][j+1]);		
				glVertex3f(x+16,	y+16,	HeightMap[i+1][j+1]);
			glEnd(); 
		}
	}
}

Delphi

procedure DrawHeighMap;
var
i,x,y,j:integer;
begin
  glColor3f(0,0.5,0);
    glBegin(GL_TRIANGLE_STRIP);
  for i:=0 to 128 do
   for j:=0 to 128 do
    begin
                          x:=i*16;
			  y:=j*16;
				glVertex3f(x,y,HeightMap[i][j]);
				glVertex3f(x+16,y,HeightMap[i+1][j]);
				glVertex3f(x,y+16,HeightMap[i][j+1]);
				glVertex3f(x+16,y+16,	HeightMap[i+1][j+1]);
			glEnd();
    end;
end;

[phomm]

Я думаю, объявление

void Terrain::LoadRawFile(const char *FileName, int nSize, BYTE *pHeightMap)

Надо транслировать вот так

procedure LoadRawFile(const FileName:String;nSize:integer;pHeightMap:pBYTE);

где pHeightMap: pBYTE получится таким образом

type 
Thmap = array [что-то] of array [что-то] of byte; // скорее всего  стат.массив
Phmap = ^Thmap ; // возможно потом используется приведение Phmap к pbyte ?_?
var
 heightmap : Thmap ;

и этот pbyte указывает на начало массива heightmap (хотя я не уверен в этом, реализация 2мерных массивов в памяти может быть неявной, и читать в массив просто как в голый буфер... мне странновато, я бы делал сразу поэлементное чтение)
Ну и смущает вот это :

  pFile.ReadBuffer(pHeightMap,1);
  pFile.Destroy;

на мой взгляд надо:

  pFile.ReadBuffer(pHeightMap,nSize); // сюда можно сделать проверку равенства считаных байт nsize-y
  pFile.free; // даже freeandnil(pfile);

openGL-кусок кода вообще не соответствует расписанному - нет инициализирующих команд, наименование процедур отличается (хотя оно может и не нужно, но при конверсии всего проекта в либу надо бы иметь совместимость) glBegin(GL_TRIANGLE_STRIP); вне цикла - дорабатывайте!
Но имо - надо обернуть си-код в либу и не париться, только инстанцировать heightmap и вызывать что надо из либы