1:
2:
3:
4:

  if Length(S) > 0 then
    case S[1] of
      '0'..'9': ShowMessage('Erstes Zeichen ist eine Zahl');
    end;                    

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

function isFirstLetterZahl(s:string):boolean;
begin
  case s[1] of '0'..'9': result := true;
  else result := false;
  end;
end;                    

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

const
  foo = 'a456984';
var
  s: String;
begin
  s := foo;
  if s[1] in [#48..#57] then
    ShowMessage('Ziffer')
  else
    ShowMessage('Buchstabe');                    

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:

var
 ALine: String;
begin
  ALine := 'Teststring';

  Assert(Length(ALine)>=1);

// Möglichkeit 1
  Case ALine[1] of
   'a'..'z','A'..'Z':
     ShowMessage('Buchstabe!');
   '0'..'9':
     ShowMessage('Zahl!')
   else
     ShowMessage('Error!');
  end;

// Möglichkeit 2
  if ALine[1] in Buchstabe then
   ShowMessage('Buchstabe!')
  else if ALine[1] in Zahl then
   ShowMessage('Zahl!')
  else
   ShowMessage('Error');
  
// wobei
const
 Buchstabe = ['a'..'z','A'..'Z'];
 Zahl = ['0'..'9'];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Function IstZifferInText (aSting: String): Boolean;
Var
  Loop: Integer;
Begin
  IstZifferInText := False;

  For Loop := 0 To Length (aString) Do
    If not aString[Loop] in [#48..#57] Then
      Begin
        IstZifferInText := True;
        Break;
      End;
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function IsNumeric(const AString: String): Boolean;
var
 I: Integer;
begin
  if Length(AString) = 0 then
  begin
    Result := False;
    exit;
  end;
  for I := 1 to Length(AString) do
   if not (AString[I] in ['0'..'9']) then
   begin
    Result := False;
    exit;
   end;
  Result := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const

 Zahl = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];

var
 fw: TextFile;
 TS : String;
 I: Integer;
-------------------

    for I := 1 to Length(TS) do
       if (TS[I] in Zahl) then
          begin
          WriteLn(fw, TS);                 {  schreibe TS in die Datei }
          end;                    

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

var ZwischenInt: Integer;
    Text: String;
begin
 Text:=15K6;
 if not StrToInt(Text, ZwischenInt) then
  begin
   ShowMessage(Text+' ist keine gültige Integerzahl!')
  end;
end                    

1:
2:

if IsNumeric(TS) then
 // TS besteht nur aus Ziffern                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function IsNumeric(const AString: String): Boolean;  
var  
 I: Integer;  
begin  
  if Length(AString) = 0 then  
  begin  
    Result := False;  
    exit;  
  end;  
  for I := 1 to Length(AString) do  
   if not (AString[I] in ['0'..'9']) then  
   begin  
    Result := False;  
    exit;  
   end;  
  Result := True;  
end;                    

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

IsNumeric returns True if the entire expression is recognized as a number; otherwise, it returns False. IsNumeric returns False if expression is a date expression.

The following example uses the IsNumeric function to determine whether a variable can be evaluated as a number: 

Dim MyVar, MyCheck
MyVar = 53   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns True.
MyVar = "459.95"   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns True.
MyVar = "45 Help"   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns False.