Координаты точек

[krasy]

Программа такая: я в компонент едит ввожу количество точек, потом в комбобоксе я выбираю эти точки и в стринг грид записываю координаты каждой из них. Программа должна будет подобрать 3 точки таким образом, чтобы была максимальная площадь фигуры. я написала ввод..но не знаю как связать каждую точку с координатой и вообще что делать дальше..

var
  Form1: TForm1;
  n,f,l,j,i:integer;
  a,a1:array [1..2] of integer;

  k:string;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 n:=StrToInt(edit1.Text);
 for i:=1 to n do
 combobox1.Items.Add(IntToStr(i))
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
f:=combobox1.itemindex+1;
if f=0 then messagedlg('Íå âûáðàëè òî÷êó',mtError,mbOKCancel,0) else
 for i:=1 to 2 do
  a[i]:=StrToInt(stringgrid1.Cells[i-1,0]);
end;

end.