Ih Will aber eine ID! - Problem mit Funktion

[CalganX]

Moin,
folgende Funktion:

Delphi-Quellcode:

function TMainFrm.getID: integer;
var
  aTmp: string;
  i: integer;
begin
  aTmp := getcurSyn.Name;
  for i:= length(aTmp) downto 0 do begin
    if (aTmp[i] in ['0'..'9']) then
      Break;
  end;
  i := (length(aTmp) + 1) - i;
  Result := StrToInt(copy(aTmp, length(aTmp), i));
end;

Ich weiß, ihr werdet gleich drauf losbrüllen, dass das falsch ist. Tja, und genau das will ich auch hören.
Problem: ich bekomme immer nur die letzte Zahl, auch wenn die ID mehrstellig ist.
Im Klartext: der Komponentenname setzt sich zusammen aus seInsertingXX. Das XX steht für eine ID, die ein einfacher Integer ist und bis zum Ende rattert. Nun, was will meine Funktion bezwecken? Ganz einfach: ich will diese ID. Nun frage ich euch: WAT SOLL ICH DA MACHEN? Wie gesagt: bekomme immer nur die letzte der mehreren Xen.

Naja, mir ist gerade eine Idee gekommen, aber jetzt seid ihr dran...

Chris