[Hengenvaara]

У Вас процедура ссылается на Edit1, Edit2 и Edit3. А должна на Edit2, Edit3 и edit4.

Код:

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

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

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