Компилируется но не работае. Возможно проблема в "string"

[Pirotexnik]

Работает спасибо.

[Serge_Bliznykov]

и исправьте, пожалуйста, грамматические ошибки в сообщениях, которые выдаёт программа:

 ShowMessage('Создатель программы - Pirotexnik. Оффициальный сайт - makeserver.ru Все права - МОИ! =) Программа завершена 27.03.09. Посвящается моему -={VLB}=- клану, makeserver.ru, bow"у т.к. с него всё начиналось, Sinner"у, и всем друзьям!');
  ShowMessage(' Спасибо за помощь Виталику Белику. Он нyачил меня программировать самому. Хочешь научится программировать? Тебе сюда => http://programmersforum.ru')

[Ntlegend]

Сообщение от Pirotexnik

Как объяснить программе, что текст выгружаемый из Edit6.Text содержит И буквы И цифры?
Нехочет

var i:integr;
     s:string;
begin
 s:=Edit6.Text;
 for i:=1 to Length(s) do
  if s[i] in ['0'..'9']
   then ShowMessage('А мЫ цЫфЕрКу НаШлИ!!')
   else  ShowMessage('БуКфФа');
end;