Sortieren von zahlen-aber wie?

[Maja]

Hey ihr lieben Dephi-interessierte!

ich hab ein riesenproblem. ich soll einen algorithmus erstellen, welcher drei einzugende Zahlen vergleicht und in der Reihenfolge ihrer Größe wieder ausgibt. Jetzt hab ich schon ein programm, aber er macht nicht das, was er soll.
ich kopiers mal rein:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;


procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:Integer;
begin
       //Eingabe
       a:=StrToInt(Edit1.Text);
       b:=StrToInt(Edit2.Text);
       c:=StrToInt(Edit3.Text);

       //Verarbeitung
       IF (a<b) AND (b<c) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE
       IF (a<c) AND (c>b) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE
       IF (b>a) AND (a<c) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE
       IF (b<c) AND (c>a) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE
       IF (c>a) AND (a<b) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE
       IF (c<b) AND (b<a) THEN
       begin
       Edit5.Text:=IntToStr(a);
       Edit4.Text:=IntToStr(b);
       Edit6.Text:=IntToStr(c);
       end
       ELSE

       



end;

end.

ich habe a=1, b=2,c=3 und dafür gibt es ja 6 varianten: 123,132,213,231,312 und 321. bitte bitte helft mir!!!!
ich bin total am verzweifeln!!!!!!!!!!!

[edit=MrSpock]Code Tags gesetzt. Mfg, MrSpock[/edit]