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

var
 S: String;
 I, Code: Integer;
begin
 S := '123abc';
 Val(S, I, Code);
 if Code > 0 then
  ShowMessage(Format('Fehlerhafte Eingabe an Stelle %d.',[Code])); // "Fehlerhafte Eingabe an Stelle 4."
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:

function isnumberinstring (S: String) : integer; //Gibt -1 zurück, wenn keine Zahl vorhanden ist, ansonsten die stelle an der die zahl ist
var l,i : integer;
char : string;

begin
l:=length(s);
result:=-1;
  for i:=1 to l do begin
    char:=copy(s,i,1);
    try
      strtoint(char);
      result:=i;
      exit;
    except
      result:=-1;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t : integer;
begin
  t:=isnumberinstring(edit1.text);
if t = -1 then showmessage('nein') else showmessage('an stelle '+inttostr(t));
end;