[helga_]

Даны три числа. Нужно найти среднее из них(расположенное между меньшим и большим). При вводе чисел выдается окно с ошибкой
"is not valid integer point value
Помогите разобраться

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
a2:=StrtoInt(Edit1.Text);
b2:=StrtoInt(Edit2.Text);
c2:=StrtoInt(Edit3.Text);
if (a2>b2)and(b2<c2)
or(a2<b2)and(b2>c2)     then
ShowMessage(InttoStr(b2));

if (a2>c2)and(c2<b2)
or(a2<c2)and(c2>b2)     then
ShowMessage(InttoStr(c2));

if (c2>a2)and(a2<b2)
or(c2<a2)and(a2>b2)     then
ShowMessage(InttoStr(a2))
end;

[PhoeniX]

Разумно предположить, что пустая строка не является правильным числом. А именно пустой строке может быть равен один из операндов.
Мораль: Проверяйте вводимые пользователем значения.

[helga_]

Уже проверяла. Ввожу в строки целые числа, но ошибка все равно вылетает..(

[Hengenvaara]

Именно при вводе или при нажатии на кнопку?

[helga_]

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

Именно при вводе или при нажатии на кнопку?

при нажатии на кнопку

[Hengenvaara]

Сейчас скопировала код, ошибок не выдает... А числа большие?

З.Ы. И у Вас немного напутано с условиями...