32-stellige zahlen aus txt oder memo auslesen

[inherited]

Du gehst jtzt allerdings davon aus, dass sie getrennt Zeilenweise vorhanden sind
Wie wäre es damit? Ungetested hingepfuscht.
Ich benutze hier StrToIntDef, ich weiß allerdings nicht ob es schneller/sauberer ist, alle 32 Stellen auf 0..9 zu testen.

Delphi-Quellcode:

procedure FilterZahlen32{Das 32 ist irreführend :D} (rein: String; raus: TStrings);
var i: Integer;
begin
  raus.BeginUpdate;
  raus.clear;
  for i := 1 to length(rein) do
  begin
    s:=Copy(rein,i,32);
    if StrToIntDef(s,42)<>42 then
      raus.Add(s);
  end;
  raus.EndUpdate;
end;