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

function Besteht_Z_Aus_Zahlen(Z: string): Boolean;
begin
  Result := True;
  try
    StrToInt(z);
  except
    Result := False;
  end;
end;


if  Besteht_Z_Aus_Zahlen(z) then
 ShowMessage('Z Besteht nur aus Zahlen!')
else
 ...					

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

if (z in ['0','1','2','3','4','5','6','7','8','9']) then
begin
  // z ist eine Ziffer
end else

if (z in ['+','-','*','/']) then
begin
  // z ist ein gültiger Operator
end;					

1:

if z in ['0'..'9'] then