Обработчик ошибок.

[FaTaL]

Вот например:

procedure TForm1.Button1Click(Sender: TObject);
var
s,n:string;
begin
s:=Memo1.Lines.Strings[i]; // Где i - номер строки TMemo
n:=Copy(s, pos(' ',s)+1,Length(s));
try
StrToInt(n);
showmessage ('Yes');
except
ShowMessage ('No');
end;
end;

Просто i пустить в цикл for i:=0 to Memo1.Lines.Count do ....

[Dj_smart]

Зачем всё так усложнять? Я конечно, ценю твое старание, но всё уже решено

[FaTaL]

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

Зачем всё так усложнять? Я конечно, ценю твое старание, но всё уже решено

Скажи плиз как решил.

[Dj_smart]

Как обычно:

sw:=memo1.Lines[n];
q1:=strtointDef(copy(sw,pos('Up',sw)+6,128),-1);
if q1=-1 then begin
  showmessage('Пожалуйста введите числовое представление!');
  stop:=true;
end;

там в цикле если stop true , то полный СТОП.

[FaTaL]

Как это будет работать в строке UP 10 ???
Ведь тут Вы начинаете читать строку с 8-ого символа pos('Up',sw)+6 и заканчиваете 128-м символом, т.е. значение 10 не будет прочитано?!

[Dj_smart]

Ошибся там двойка
ПыСы: А 128 там, чтобы гарантировано ститать (число максимум 2 цифры, поэтому можно и тройку поставить вместо 128-и).

[FaTaL]

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

Ошибся там двойка
ПыСы: А 128 там, чтобы гарантировано ститать (число максимум 2 цифры, поэтому можно и тройку поставить вместо 128-и).

Ну так в Вашем примере и будет обрабатываться только строка UP, а у Вас ведь есть и Down и Left.

[Dj_smart]

И еще ~20 команд