Delphi tilida

Dialogs, StdCtrls, Grids; 
Type 
TForml = class(TForm) 
StringGridl: TStringGrid; 
Editl: TEdit; 
Edit2: TEdit; 
Labell: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Buttonl: TButton; 
Label4: TLabel; 
procedure FormActivate(Sender: TObject); 
procedure ButtonlClick(Sender: TObject); 
private 
{ Private declarations } public 
{ Public declarations } end; 
Var 
Forml: TForml; 
implementation 

179 

{$R *.DFM} 
procedure TForml.FormActivate(Sender: TObject); 
Var 
i:integer; begin 
for i:=l to 10 do 
StringGridl.Cells[0,i]:=IntToStr(i); 
for i:=l to 10 do 
StringGridl .Cells[i,0] :=IntToStr(i); 
StringGridl.Cells[l,2]:='l'; 
StringGridl.Cells[2,l]:='l'; 
StringGridl.Cells [1,3]:=T; 
StringGridl.Cells[3,l]:='l'; 
StringGridl.Cells[l,4]:='l'; 
StringGridl.Cells[4,l]:='l'; 
StringGridl.Cells[3,7]:='l'; 
StringGridl.Cells[7,3]:=T; 
StringGridl.Cells[4,6]:='l'; 
StringGridl.Cells[6,4]:='l'; 
StringGridl.Cells[5,6]:='l'; 
StringGridl.Cells[6,5]:='l'; 
StringGridl.Cells [5,7]:=T; 
StringGridl.Cells[7,5]:='l'; 
StringGridl.Cells[6,7]:='l'; 
StringGridl.Cells[7,6]:='l'; 
end; 
procedure TForml.ButtonlClick(Sender: TObject); 
const 
N=10; 
Var 
map:array[l..N,l..N] of integer; 
rgad:array[l..N]of integer; 
incl:array[l..N]of boolean; 
start,finish:Integer;