простейший код в Делфи: проверка строки на корректность символов

function Test_digit(sx : string): string;
var i : integer;
begin
result:='';
for i := 1 to length(sx) do
begin
if not (sx in ['0'..'9']) then
begin
result:='Not Digits';
break;
end;
if result='' then result:='Only Digits';
end;

end;

а нельзя типа через case x of
0..9 : inc (i)
else writeerror?

или через set of

Нахрен там if - ума не приложу)
Приличная программа, решающая подобную задачу, обойдется безо всяких ифов.
Какой идиот поставил тебе такую задачу ?) Или ты отсебячину тут лепишь про ифы ?)

begin
var s: string;
writeln('Введите что-нибудь');
readln(s);
for var i:=1 to length(s) do
if not (s[ i ] in ['0'..'9']) then
begin
writeln('Строка содержит постороние символы');
exit;
end;
writeln('Строка содержит только цифры');
end.

Не пугайся объявлениям переменных в блоке программы - это PascalABC.NET. Если хочешь перенеси их вверх =)

что то типа этого
if pos('0',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('1',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('2',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('3',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('4',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('5',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('6',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('7',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('8',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('9',edit1.text)=true then showmessage('Тут ЦИФРА!) ;

Если в строке обнаруживается цифра, то выводится сообщение об этом.