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

const ziffern = ['0'..'9'];
var i: integer;
    myString: String;
begin
 myString:= 'String123';
 for i:= 1 to length(myString) do
  if (myString[i] in ziffern) then
   showmessage('Stringposition + inttostr(i) + ' ist eine Zahl')
  else
   showmessage('Stringposition + inttostr(i) + ' ist ein Buchstabe')
end;					

1:
2:
3:
4:

procedure TArtikel.Edit_AnzKeyPress(Sender: TObject; var Key: Char);
begin
  IF NurZifferEingabe(Key) = False THEN Key := #0;
end;					

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

Function NurZifferEingabe(var Key: Char): Boolean;

begin
  IF NOT (Key in [#8,#46,#48,#49,#50,#51,#52,#53,#54,#55,#56,#57]) THEN
    begin
      NurZifferEingabe := False;
      ShowMessage('Nur Zahlen und der Dezimalpunkt sind erlaubt!');
    end;
   ELSE NurZifferEingabe := True;
end;					

1:
2:
3:
4:

procedure TArtikel.Edit_AnzKeyPress(Sender: TObject; var Key: Char);  
begin  
  NurZifferEingabe(Key);  
end;					

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

if NOT (Key in ['0'..'9', DecimalSeparator , #8, '-'])       
   OR ((Key = decimalseparator) AND NOT (pos(decimalseparator,text)= 0))then
     begin
       Key := Chr(0);
       Application.MessageBox('Nur Zahhlen und der Dezimalpunkt (Komma) sind erlaubt!',
                             'Achtung!', MB_OK + MB_IconWarning);
       SetFocus;
     end;