//Data ist ein Pointer, bei dem die Texturdaten als single gespeichert werden, und würde benutzt, damit man sich auf der Landschaft bewegen kann, ist also hier recht unwesentlich
    type Arr = array of array of single;
    var
      j1, j2, j3, j4: integer;
      x, scale: single;
      Arr2: array of array of single;
      binData: array of array of word;
    begin
      hmap:= IMG_Load(PChar(ExtractFilePath(Application.ExeName) + filename));
      if hmap = nil then begin
        showMessage('No Texture Loaded');
        exit;
      end;
      glGenTextures(1, @result);
      glBindTexture(gl_texture_2d, result);
      glTexParameteri(gl_Texture_2d, gl_texture_mag_filter, gl_linear);
      glTexParameteri(gl_texture_2d, gl_texture_min_filter, gl_linear);     
      SetLength(Arr(Data), hmap^.w, hmap^.h);
      for j1:= 0 to high(Arr(Data)) do
        for j2:= 0 to high(Arr(Data)) do begin
          Arr(Data)[j1, j2]:= byte(ptr(integer(hmap^.pixels) + j1 * 3 * length(Arr(Data)[0]) + j2 * 3)^);
        end;     

      SetLength(binData, length(Arr(Data)), length(Arr(Data)[0]));
      for j1:= 0 to high(Arr(Data)) do
        for j2:= 0 to high(Arr(Data)) do begin
          binData[j1, j2]:= trunc(Arr(Data)[j1, j2] * 256);
        end;

      glTexImage2d(gl_texture_2d, 0, 3, hmap^.w, hmap^.h, 0, gl_red, gl_unsigned_short, @binData[0, 0]);

      sdl_FreeSurface(hmap);
    end;

function Tform1.screenshotperpixelmethodemachen(Sender:TObject):Tbitmap;
  var
    pixels: array of Byte;
    x,y: integer;
    n: Integer;
    VP: array[0..3] of Integer;
    bmp: TBitmap;
begin
Screen.Cursor := crHourGlass;                              // Eieruhr einschalten
button6.SetFocus;                                          // Focus auf button 6
  bmp := TBitmap.Create;                                   // Bitmap erzeugen
  glGetIntegerv(GL_VIEWPORT, @VP);                         // Viewport in VP ablegen
  glPixelStoref(GL_PACK_ALIGNMENT,1);                      // [*2] keine Ahnung
  setLength(pixels,VP[2]*VP[3]*3);                         // Die Anzahl der notwendingen Bytes im array of
                                                           // Pixels beträgt Breite mal Höhe mal 3
  glReadPixels(0,0,VP[2],VP[3],                            // Die Bytes auslesen und in Pixel schreiben
               GL_RGB,GL_UNSIGNED_BYTE,@pixels[0]);
  bmp.Width := VP[2];                                      // Dem BMP die Viewport Breite beibringen
  bmp.Height := VP[3];                                     // Dem BMP die Viewport Höhe beibringen
  n := 0;                                                  // Zähler für die Pixel auf 0 setzen
  for y := VP[3]-1 downto 0 do                             // [*2] für die Anzahl der Zeilen
    for x := 0 to VP[2]-1 do                               //      für die Anzahl der Pixel in der Breite
      begin
        bmp.Canvas.Pixels[x,y] :=                          // Die Pixel ins Canvas des BMP malen
          RGB(pixels[n],pixels[n+1],pixels[n+2]);          // und zwar immer Rot, Grün und Blauwert aus dem array Pixel
        inc(n,3);                                          // den zähle um 3 erhöhen
      end;
result:=bmp;                                               // Das bmp als result zurückliefern
Screen.Cursor := crDefault;                                // den normalen Mauszeiger wieder einschalten
end;