[x128]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2: TStringList;
begin
  n1:=TStringList.Create;
  n2:=TStringList.Create;
  ExtractStrings(['.'], [], PChar(edit1.Text), n1);
  ExtractStrings(['.'], [], PChar(edit2.Text), n2);
  edit3.Text:=IntToStr(StrToInt(n1[0])+StrToInt(n2[0]))+'.'+
              IntToStr(StrToInt(n1[1])+StrToInt(n2[1]))+'.'+
              IntToStr(StrToInt(n1[2])+StrToInt(n2[2]));
  n1.Destroy;
  n2.Destroy;
end;

Такой вариант решения пододет?