用delphi编写的人工智能中的过河问题的源码

				program MyProj;
				
				uses
				  Forms,
				  SMain in 'SMain.pas' {Form1};
				
				{$R *.res}
				
				begin
				  Application.Initialize;
				  Application.CreateForm(TForm1, Form1);
				  Application.Run;
				end.