if paramcount > 0 then begin //zjistí, zda byl prg. spuštěn s parametrem
    richedit.Lines.LoadFromFile(paramstr(1));  //načte soubor
end;

procedure tform1.oznac(xx,yy:integer);
begin
pole[xx,yy].oznaceno:=true; 

if (yy > 0) and (pole[xx,yy].barva=pole[xx,yy-1].barva) then
    oznac(xx,yy-1);

if (xx > 0) and (pole[xx,yy].barva=pole[xx-1,yy].barva) then
    oznac(xx-1,yy);

if (yy < 10) and (pole[xx,yy].barva = pole[xx,yy+1].barva) then
    oznac(xx,yy+1);

if (xx < 10) and (pole[xx,yy].barva=pole[xx+1,yy].barva) then
    oznac(xx+1,yy);

end;

procedure tform1.prehrat(ResName: pchar);
var
    InfoBlock: HRSRC;
    GlobalMemoryBlock: HGLOBAL;
    size: longword;
begin
InfoBlock := FindResource(hInstance, resname, 'wave');

    if InfoBlock = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));

size := SizeofResource(hInstance, InfoBlock);

    if size = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));

GlobalMemoryBlock := LoadResource(hInstance, InfoBlock);

    if GlobalMemoryBlock = 0 then
      raise Exception.Create(SysErrorMessage(GetLastError));
     
sndPlaySound(LockResource(GlobalMemoryBlock),SND_MEMORY or SND_NODEFAULT or SND_ASYNC);

end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var sx, sy, x2, y2: byte;
begin
sx := X div velikost;
sy := Y div velikost;
  if (Button = mbLeft) then begin
    For x2 := 0 to 9 do
      For y2 := 0 to 9 do begin
        Kliknuto[x2, y2] := false;
      end;
  Klik(1,sx,sy);
  end;
  if (Button = mbRight) then begin
    For x2 := 0 to 9 do
      For y2 := 0 to 9 do begin
        Klikpodruhe[x2, y2] := false;
      end;
  Klik(2,sx,sy);
  end;
end;

procedure TForm1.Klik(A, X, Y: Integer);
var x2, y2: integer;
begin
  If (A = 1) then
      If (x > 0) then
        If (Pole[x, y] = Pole[x-1, y]) then
          If (Kliknuto[x-1, y] = false) Then begin
            Kliknuto[x-1 ,y] := true;
            Klik(A,x-1,y);
          end;
      If (x < 9) then
        If (Pole[x, y] = Pole[x+1, y]) then
          If (Kliknuto[x+1, y] = false) Then begin
            Kliknuto[x+1 ,y] := true;
            Klik(A,x+1,y);
          end;
      If (y > 0) then
        If (Pole[x, y] = Pole[x, y-1]) then
          If (Kliknuto[x, y-1] = false) Then begin
            Kliknuto[x ,y-1] := true;
            Klik(A,x,y-1);
          end;
      If (y < 9) then
        If (Pole[x, y] = Pole[x, y+1]) then
          If (Kliknuto[x, y+1] = false) Then begin
            Kliknuto[x ,y+1] := true;
            Klik(A,x,y+1);
          end;
  If (A = 2) then begin
    for x2 := 0 to 9 do
      for y2 := 0 to 9 do begin
    If (Kliknuto[x2, y2] = true) then Klikpodruhe[x2, y2] := true;
      end;
  end;
Oznaceni;
end;

procedure TForm1.Oznaceni;
var x, y: integer;
begin
  For x := 0 to 9 do
    For y := 0 to 9 do begin
      If (Kliknuto[x ,y] = true) then begin
        case Pole[x, y] of
          1: Image2.Canvas.CopyRect(Rect(velikost*x, velikost*y, velikost*(x+1), velikost*(y+1)), Image3.Canvas, Rect(0,0,velikost,velikost));
          2: Image2.Canvas.CopyRect(Rect(velikost*x, velikost*y, velikost*(x+1), velikost*(y+1)), Image3.Canvas, Rect(velikost,0,velikost*2,velikost));
          3: Image2.Canvas.CopyRect(Rect(velikost*x, velikost*y, velikost*(x+1), velikost*(y+1)), Image3.Canvas, Rect(velikost*2,0,velikost*3,velikost));
          4: Image2.Canvas.CopyRect(Rect(velikost*x, velikost*y, velikost*(x+1), velikost*(y+1)), Image3.Canvas, Rect(velikost*3,0,velikost*4,velikost));
          5: Image2.Canvas.CopyRect(Rect(velikost*x, velikost*y, velikost*(x+1), velikost*(y+1)), Image3.Canvas, Rect(velikost*4,0,velikost*5,velikost));
        end;
      end;
    end;
Zmizeni;
end;

procedure TForm1.Zmizeni;
var x, y: integer;
begin
  For x := 0 to 9 do
    For y := 0 to 9 do begin
      If (Klikpodruhe[x ,y] = true) then begin
        Pole[x, y] := 0;
        Image2.Canvas.CopyRect(Rect(velikost*x,velikost*y,velikost*(x+1),velikost*(y+1)),Image1.Canvas,Rect(velikost*5,0,velikost*6,velikost));
      end;
    end;
end;

DoubleBuffered := True;

float[] triangle = new float[] { -1.0f, -1.0f, 0.0f, 1.0f, -1.0f, 0.0f, -1.0f, 1.0f, 0.0f, 1.0f, 1.0f, 0.0f };

gl.LoadIdentity();
gl.Translatef(0.0f, 0.0f, -6.0f);

fixed (float* trianglePointer = &triangle[0])
{
    gl.EnableClientState(gl.GL_VERTEX_ARRAY);
    gl.VertexPointer(3, gl.GL_FLOAT, 0, (IntPtr)trianglePointer);               
    gl.DrawArrays(gl.GL_TRIANGLE_STRIP, 0, 4);
    gl.DisableClientState(gl.GL_VERTEX_ARRAY);
    gl.Flush();
}

g.FillRectangle(new SolidBrush(Color.White), 0, 0, 10, 10);