[Uniq!]

значит так

Код:

Новый проект: 
 на форму стягивай edit - поле для ввода текста. (3 штуки)
 искать её на панели компонентов Standard

 Label - просто штучка, где текст отображается

 Button - кнопку, тырыкай дважды на кнопку,

получишь:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Пихай всё что я накатал:
Вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
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;

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

Нажимай f9

В первое поле вводи 5 во второе 6 в третее 7
и тыкай на кнопку