1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TForm1.placestone(i:integer;j:integer);

Begin

        if (player) and (j=0) and (i<>0) and (i<>18) then
                tarray[i,j].picture.loadfromfile('LeWaB.bmp')
        else if (player) and (j=0) and (i=0) then
                tarray[i,j].picture.loadfromfile('TLCB.bmp')
        else if (player) and (j=0) and (i=18) then
                tarray[i,j].picture.loadfromfile('BLCB.bmp')
        else if (player) and (j=18) and (i<>0) and (i<>18) then
                tarray[i,j].picture.loadfromfile('RWB.bmp')
        else if (player) and (j=18) and (i=0) then
                tarray[i,j].picture.loadfromfile('TRCB.bmp')
        else if (player) and (j=18) and (i=18) then
                tarray[i,j].picture.loadfromfile('BRCB.bmp')
        else if (player) and (i=0) and (j<>0) and (j<>18) and (i<>18) then
                tarray[i,j].picture.loadfromfile('ToWaB.bmp')
        else if (player) and (i=18) and (j<>0) and (j<>18) then
                tarray[i,j].picture.loadfromfile('BoWaB.bmp')
        else if (player) and (i<>0) and (i<>18) and (j<>0) and (j<>18) then
                tarray[i,j].picture.loadfromfile('MFB.bmp')
        else if (not player) and (j=0) and (i<>0) and (i<>18) then
                tarray[i,j].picture.loadfromfile('LeWaW.bmp')
        else if (not player) and (j=0) and (i=0) then
                tarray[i,j].picture.loadfromfile('TLCW.bmp')
        else if (not player) and (j=0) and (i=18) then
                tarray[i,j].picture.loadfromfile('BLCW.bmp')
        else if (not player) and (j=18) and (i<>0) and (i<>18) then
                tarray[i,j].picture.loadfromfile('RWW.bmp')
        else if (not player) and (j=18) and (i=0) then
                tarray[i,j].picture.loadfromfile('TRCW.bmp')
        else if (not player) and (j=18) and (i=18) then
                tarray[i,j].picture.loadfromfile('BRCW.bmp')
        else if (not player) and (i=0) and (j<>0) and (j<>18) and (i<>18) then
                tarray[i,j].picture.loadfromfile('ToWaW.bmp')
        else if (not player) and (i=18) and (j<>0) and (j<>18) then
                tarray[i,j].picture.loadfromfile('BoWaW.bmp')
        else if (not player) and (i<>0) and (i<>18) and (j<>0) and (j<>18) then
                tarray[i,j].picture.loadfromfile('MFW.bmp')
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

procedure TForm1.OpenSGF1Click(Sender: TObject);
var     sgffile : TextFile;
        buffer,gamefile,blacks,whites : string;
        p:integer;
begin
        gamefile:='';
        if form1.OpenDialog1.Execute then
        Begin
                AssignFile(sgffile,form1.OpenDialog1.FileName);
                Reset(sgffile) ;
                while not EOF(sgffile) do
                begin
                        readln(sgffile,buffer);
                        gamefile:=gamefile+buffer;
                end;
                CloseFile(sgffile);
                gamefile:=uppercase(gamefile);

                {if (pos('B[',gamefile)<pos('W[',gamefile)) then
                        player:=false
                else
                        player:=true;
                 }
                p:=pos('PB[',gamefile);
                delete(gamefile,p,6);
                p:=pos('PW[',gamefile);
                delete(gamefile,p,6);
                p:=pos('B[',gamefile);
                blacks:='';
                repeat
                        blacks:=blacks+copy(gamefile,p+2,2)+#13;
                        delete(gamefile,p,5);
                        p:=pos('B[',gamefile);
                until p=0;

                p:=pos('W[',gamefile);
                whites:='';
                repeat
                        whites:=whites+copy(gamefile,p+2,2)+#13;
                        delete(gamefile,p,5);
                        p:=pos('W[',gamefile);
                until p=0;

                black.Text:=lowercase(blacks);
                white.Text:=lowercase(whites);
        end;
end;                    

1:
2:

if (player) and (j=0) and (i<>0) and (i<>18) then  
  tarray[i,j].picture.loadfromfile('LeWaB.bmp')