Tam veya küsuratlı sayı

[dilo]

Selam;

Toplama ve çıkarma işlemi yapmam gerek fakat sayı tam veya küsuratlı olabilir.

Örnek: 125 + 150 = 275
Örnek: 1.250 + 1.500 = 1.275 çözümü için nasıl bir yol izleyebilirim? 

var
  sayi1, sayi2, fark: integer;
begin
  try
    sayi1 := StrToInt(EditAlis.Text);
    sayi2 := StrToInt(EditSatis.Text);
    fark := sayi1 - sayi2;
    ShowMessage(IntToStr(fark));
  except
    TextUrun.Text := 'Hatalı sayı girişi yaptınız.';
  end;
end;