работа с массивами в Delphi

[Stilet]

if a[i] = strtoint(Edit1.Text) then

Замени на

  if not trystrtoint(Edit1.Text,a[i]) then ShowMessage('Неверно введено число в Эдит');

И посмотри что получится.

[вася радугов]

ошибка исчезла. спасибо!!! но теперь программа всегда выводит сообщение о том что число входит в массив, даже если оно не входит. она его просто добавляет его в этот массив

[whatever]

Внимательно читаем последний абзац

[Katus]

можно было обойтись и Label'ом, если вспомнить про #13=)

[whatever]

Stilet, не согласен. trystrtoint(Edit1.Text,a[i]) присваивает значение edit1 переменной a[i], что нам не нужно.
Я бы сделал так:

procedure TForm1.Button2Click(Sender: TObject);
var
  i,check:integer;
  vh,check2:boolean;
begin
  vh:=false;
  check2:=true;
  for i:=1 to 11 do
    if not trystrtoint(Edit1.Text,check) then 
      begin
        ShowMessage('Неверно введено число в Эдит');
        check2:=false;
        break;
      end;
    if a[i] = strtoint(Edit1.Text) then
      vh:=true;
  if check2 then
    if vh  then
      showmessage(edit1.text+' Входит в массив а')
    else
      begin // вот тут тоже бегин забыл сразу, поэтому всегда добавлялось
        showmessage(edit1.text+' невходит в массив а');
        memo1.lines.add(Edit1.Text);
      end;
end;