delphi прога не работает

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
if a>=b then
if a>=c then
if b>=c then
begin
edit1.Text:=floattostr(a);
edit2.Text:=floattostr(b);
edit3.Text:=floattostr(c);
end;
[COLOR="Red"]else[/COLOR]
begin
edit1.Text:=floattostr(a);
edit2.Text:=floattostr(c);
edit3.Text:=floattostr(b);
end;
else begin
edit1.Text:=floattostr(c);
edit2.Text:=floattostr(a);
edit3.Text:=floattostr(b);
end;
else if a>=c then   begin
edit1.Text:=floattostr(b);
edit2.Text:=floattostr(a);
edit3.Text:=floattostr(c);
end;
else if b>=c then  begin
edit1.Text:=floattostr(b);
edit2.Text:=floattostr(c);
edit3.Text:=floattostr(a);
end;
else
begin
edit1.Text:=floattostr(c);
edit2.Text:=floattostr(b);
edit3.Text:=floattostr(a);
end;
 
 
end;
 
end.