1:
2:

PosZahl := Pos('1', sRecord);                  // 2. Finde die erste / nächste Zahl
  if PosZahl > 0 then ...                    

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:

//Position der Nummer
Function PosNumber(s:AnsiString):Integer;
Var i:Integer;
Begin
 Result:=0;
 For i:=1 to Length(s) do 
     IF s[i] in ['0'..'9'] then
        BEGIN
         Result:=i;
         Break;
        END;
End;


procedure TForm1.Button1Click(Sender: TObject);
Var i:Integer;
    s:AnsiString;
begin
 s:='Test01';
 Repeat
  i:=PosNumber(s);
  IF i>0 then
     BEGIN
      ShowMessage(s[i]);
      Delete(s,i,1);
     END;
 Until i=0;
end;                    

1:
2:
3:
4:
5:
6:
7:

if (PosZahl := Pos('1', sRecord) or 
   (Poszahl := Pos('0', sRecord) or
   (Poszahl := Pos('2', sRecord) or
   (Poszahl := Pos('3', sRecord) then
begin
// TaDaaaa
end;                    

1:
2:
3:
4:
5:
6:
7:

if (PosZahl := Pos('1', sRecord) or 
   (Poszahl := Pos('0', sRecord) or
   (Poszahl := Pos('2', sRecord) or
   (Poszahl := Pos('3', sRecord) then
begin
// TaDaaaa
end;                    

1:
2:
3:
4:
5:
6:
7:

if (Pos('1', sRecord)>0) or 
   (Pos('0', sRecord)>0) or
   (Pos('2', sRecord)>0) or
   (Pos('3', sRecord)>0) then
begin
// TaDaaaa
end;                    

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:

procedure TForm1.GibGebdatAusClick(Sender: TObject);
var Poszahl0, Poszahl1, Poszahl2, Poszahl3, min : integer;
begin
  sRecord := StringE.Text;
  stringL.Caption := '';

  PosZahl0 := Pos('0', sRecord);
  PosZahl1 := Pos('1', sRecord);
  PosZahl2 := Pos('2', sRecord);
  PosZahl3 := Pos('3', sRecord);

  showmessage(inttostr(poszahl0)+'*'+inttostr(poszahl1)+'*'+inttostr(poszahl2)+'*'+inttostr(poszahl3));

  min := length(sRecord);
  if (poszahl0 > 0) and (Poszahl0 < min) then min := Poszahl0
  else
  if (poszahl1 > 0) and (Poszahl1 < min) then min := poszahl1
  else
  if (poszahl2 > 0) and (Poszahl2 < min) then min := poszahl2
  else
  if (poszahl3 > 0) and (Poszahl3 < min) then min := poszahl3;

  showmessage(inttostr(min));

  sField := Copy(sRecord, min, 10);      // 3.a Spalte links von der Zahl ab

  stringL.Caption := stringL.Caption + sField;   // 4. In das Label schreiben

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  sRecord: string;
  CurrentStrPos: PChar;
begin
  sRecord := 'dffgdfgsd01.02.2012fdgfd';
  CurrentStrPos := PChar(sRecord);
  while not (CurrentStrPos^ in ['0'..'3', #0]) do
    Inc(CurrentStrPos);
  ShowMessage(Copy(CurrentStrPos, 1, 10));