Динамическое программирование.

[IllidanStormrage]

Прошу помочь кто сможет, пишу программу для решения задач динамического программирования. Сейчас уперся в проблему которую никак не могу оптимизировать. Имея график высот и скорости нужно что бы рисовало оптимальный путь. Сколько думал но идеи оптимизации так и не могу придумать, помогите пожалуйста. Вот скрин графика

Ну и код программы 2й формы.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm2 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
Function line (x1,y1,x2,y2:integer):boolean;
function circle (x1,y1,r:integer):boolean;
procedure FormActivate(Sender: TObject);
private
procedure ris;
{ Private declarations }
public
{ Public declarations }
end;

var
i,j,z,w:integer;
Form2: TForm2;

implementation

{$R *.dfm}

procedure tform2.ris;
begin
end;

Function tform2.line(x1,y1,x2,y2:integer):bo olean;
begin
with form2.Image1.Canvas do
begin
moveto(x1,y1);lineto(x2,y2);
end;
end;

function tform2.circle(x1,y1,r:integer):bool ean;
begin
form2.Image1.Canvas.ellipse(x1-r,y1-r,x1+r,y1+r);
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
z:=0;
for i:=1 to 6 do
begin
z:=z+100;
Line (z,50,z,550);
end;
z:=0;
for i:=1 to 5 do
begin
z:=z+100;
line (50,z,650,z);
end;
z:=150;
w:=550;
for i:=1 to 4 do
begin
line (z,50,650,w);
z:=z+100;
w:=w-100;
end;
z:=550;
w:=50;
for i:=1 to 4 do
begin
line (50,w,z,550);
z:=z-100;
w:=w+100;
end;
w:=100;
for j:=1 to 5 do
begin
z:=100;
for i:=1 to 6 do
begin
circle (z,w,20);
z:=z+100;
end;
w:=w+100;
end;

end;

end.

Помогите написать процедурку на рисование нужных линий. Кстатие кто не знает что я хочу немного поясню, расчет начинается с левой нижней ячейки (67). Путь пролаживается если разность между соседними ячейками = числу между этими 2мя ячейками (67-61=6=true) и так далее по цепочки пока не дойдем до нуля.