1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

function isNumeric(c : char) : Boolean;
begin
  result:= CharInSet(c,['0'..'9']);
end;

Procedure Test2;
var
  strA, strB, strString: String;
  chrA: Char;
  intA: Integer;
begin
strString:= Form1.Edit1.Text;
intA:=0;

repeat
  inc(intA);
  chrA := strString[intA];
  if IsNumeric(chrA) then strA := strA + chrA;
until IsNumeric(chrA)=false or (intA = Length( strString));
Form1.Label1.Caption:= strA;

repeat
  inc(intA);
  chrA := strString[intA];
  if IsNumeric(chrA) then strB := strB + chrA;
until intA = Length( strString);

Form1.Label2.Caption:= strB;
if (strA<>'') and (strB<>'') then
Form1.Label3.Caption:= IntToStr(StrToInt(strA)+StrToInt(strB));
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='1719+811'; //ohne Zwischenraum
Test2;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='1719 + 811'; //mit Zwischenraum
Test2;
end;