[Uniq!]

3,если b<a<c
4,если b<a<c

фигня написана

Код:

var 
 a,b,c:integer;
 y:integer;
begin
a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
c:=StrToInt(edit3.text);

if (a<b) and (b<c) then then y:=1;
if (a=b) and (b=c) then then y:=2;
if (b<a) and (a<c) then then y:=3;
if (c<a) and (a<b) then then y:=4;

Label1.Caption1:=IntToStr(y);
end;

С case сам, на примере if