Раскраска графа в минимальное кол-во цветов

var i,k,coun1,coun2,a,s: integer;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TabSheet3.Show;
end;
   //////////òûêíóëè íà ìûø
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  TabSheet1.TabVisible:=true;
  TabSheet2.TabVisible:=true;
  Button2.Visible:=true;
  Button3.Visible:=true;
//ñîçäàíèå âåðøèíû
  with Image1.Canvas do
    begin
      Pen.Color:=clBlack;
      Brush.Color:=clBlack;
      Ellipse(X-5,Y-5,X+30,Y+30);
      Font.Color:=clWhite;
      Font.Size:=10;
      Font.Name:='Arial';
      TextOut(X+5,Y+2,IntToStr(i));
      i:=i+1;
    end;
    //îôîðìëåíèå òàáëèöû ñìåæíîñòè
    StringGrid1.ColCount:=i;
    StringGrid1.RowCount:=i;
    StringGrid1.Cells[0,1]:='X1';
    StringGrid1.Cells[0,i]:='X'+IntToStr(i);
    StringGrid1.Cells[1,0]:='X1';
    StringGrid1.Cells[i,0]:='X'+IntToStr(i);
    //Çàïèñü êîîðäèíàò â òàáëèöó êîîðäèíàò
    StringGrid2.RowCount:=i;
    StringGrid2.Cells[1,i-1]:=IntToStr(X);
    StringGrid2.Cells[2,i-1]:=IntToStr(Y);
    StringGrid2.Cells[0,1]:='X1';
    StringGrid2.Cells[0,i]:='X'+IntToStr(i);
    StringGrid2.Cells[1,0]:='X';
    StringGrid2.Cells[2,0]:='Y';
    //îôîðìëåíèå òàáëèöû èíöèäåíòíîñòè
    StringGrid3.RowCount:=i;
    StringGrid3.Cells[0,1]:='X1';
    StringGrid3.Cells[0,i]:='X'+IntToStr(i);
    //çàíóëåíèå ìàòðèöû ñìåæíîñòè
    for coun1:=1 to i do
    begin
        for coun2:=1 to i do
        begin
            if StringGrid1.Cells[coun1,coun2]='' then
              StringGrid1.Cells[coun1,coun2]:='0';
        end;
    end;
 
//èçìåíåíèå ðàçìåðîâ òàáëèöû
    StringGrid1.ColWidths[0]:=22;
    StringGrid1.ColWidths[i-1]:=22;
    StringGrid1.RowHeights[0]:=20;
    StringGrid1.RowHeights[i-1]:=20;
    a:=StringGrid1.ColCount;
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
k:=0;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.show;
//çàíóëåíèå ìàòðèöû èíöèäåíòíîñòè
s:=StringGrid3.ColCount;
for coun1:=1 to s do
begin
    for coun2:=1 to i do
    begin
        if StringGrid3.Cells[coun1,coun2]='' then
           StringGrid3.Cells[coun1,coun2]:='0';
    end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.show;
//зануление матрицы инцидентности
s:=StringGrid3.ColCount;
for coun1:=1 to s do
begin
    for coun2:=1 to i do
    begin
        if StringGrid3.Cells[coun1,coun2]='' then
           StringGrid3.Cells[coun1,coun2]:='0';
    end;
end;
end;

var
p,t:integer;
st:string;
 
procedure TForm3.Button1Click(Sender: TObject);
var
i,j,x,y:integer;
begin
begin
    st:=Edit1.Text;
    t:=pos(' ',st);
    Delete(st,t,1);
    Edit1.Text:=st;
end;
//создание ребра
if (Edit1.Text<>'') and (Edit2.Text<>'') then
begin
i:=StrToInt(Edit1.Text);
j:=StrToInt(Edit2.Text);
x:=strtoint(Form1.StringGrid2.cells[1,i]);
y:=strtoint(Form1.StringGrid2.cells[2,i]);
with Form1.Image1.Canvas do
begin
  Pen.Color:=clBlack;
  MoveTo(x,y);
  x:=strtoint(Form1.StringGrid2.cells[1,j]);
  y:=strtoint(Form1.StringGrid2.cells[2,j]);
  LineTo(x,y);
end;
//оформление шапки таблицы инцидентности
Form1.StringGrid3.ColCount:=p+1;
Form1.StringGrid3.Cells[p,0]:='X'+IntToStr(i)+'vX'+IntToStr(j);
Form1.StringGrid3.FixedCols:=1;
//заполнение матрицы смежности
        with Form1.StringGrid1 do
        begin
            Cells[i,j]:='1';
            Cells[j,i]:='1';
        end;
 
//заполнение матрицы инцидентности
with Form1.StringGrid3 do
begin
Cells[p,i]:='1';
Cells[p,j]:='1';
end;
end;
 
close;
end;
 
procedure TForm3.FormShow(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
p:=Form1.StringGrid3.ColCount;
Edit1.SetFocus;
end;
 
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
    st:=Edit1.Text;
    t:=pos(' ',st);
    Delete(st,t,1);
    Edit1.Text:=st;
    Button1.Click;
end;
if Key=vk_Space then
Edit2.SetFocus;
end;
 
end.