[SerginhoLD]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var ed1,ed2: string;
    i,p:integer;
    a,b: array[1..3] of integer;
begin
  ed1:=edit1.Text; ed2:=edit2.Text;
  i:=1;
  while i<>4 do
  begin
    if i=3 then
    begin
      a[i]:=StrToInt(ed1);
      b[i]:=StrToInt(ed2);
    end
    else begin
      p:=Pos('.',ed1);
      a[i]:=StrToInt(Copy(ed1,1,p-1));
      ed1:=Copy(ed1,p+1,Length(ed1)-1);
      p:=Pos('.',ed2);
      b[i]:=StrToInt(Copy(ed2,1,p-1));
      ed2:=Copy(ed2,p+1,Length(ed2)-1);
    end;
    inc(i);
  end;
end;

вот тебе вычисляются массивы a и b
например в edit1: 13.72.2
то a[1]=13, a[2]=72, a[3]=2

дальше сравнивай и складывай как ты хочешь