unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);{BERECHNEN}

var a, b, c, max :  integer;

begin      

      a:=StrToInt(edit1.text);			{Text in eine ganze Zahl umwandeln}

      b:=StrToInt(edit2.text);

      C:=StrToInt(edit3.text);

      If (a+b>c) and (b+c>a) and (a+c>b)	{Dreiecksungleichung}

      then

      begin

        if a<b then				{nach dem MAXIMUMprinzip}

                begin

                  if b<c then

                    begin

                      max:=c;

                      if c = sqrt(a*a +b*b) then

                      Label5.caption:=' Es ist EIN rechtwinkliges Dreieck'

                      else Label5.caption:='Es ist KEIN rechtwinkliges Dreieck';

                      Label6.caption:=' und die größte Seite ist ' +  intTOstr(c)

                      + '  LE  lang';

                    end;

                  if b>c then

                    begin

                      max:=b;

                      if b = sqrt(a*a +c*c) then

                      Label5.caption:=' Es ist EIN rechtwinkliges Dreieck'

                      else Label5.caption:='Es ist KEIN rechtwinkliges Dreieck';

                      Label6.caption:=' und die größte Seite ist ' +  intTOstr(b)

                      + '  LE  lang';

                    end;

                end ;

        if a>b then

                begin

                  if a>c then

                    begin

                      max:=a;

                      if a = sqrt(c*c +b*b) then

                      Label5.caption:=' Es ist EIN rechtwinkliges Dreieck'

                      else Label5.caption:='Es ist KEIN rechtwinkliges Dreieck';

                      Label6.caption:=' und die größte Seite ist ' +  intTOstr(a)

                      + '  LE  lang';

                    end;

                  if a<c then

                    begin

                      max:=c;

                      if c = sqrt(a*a +b*b) then

                      Label5.caption:=' Es ist EIN rechtwinkliges Dreieck'

                      else Label5.caption:='Es ist KEIN rechtwinkliges Dreieck';

                      Label6.caption:=' und die größte Seite ist ' +  intTOstr(c)

                      + '  LE  lang';

                    end;

              end ;

       end else Label5.caption:='Es ist KEIN Dreieck';

end;

procedure TForm1.Button2Click(Sender: TObject);{NEU}

begin

    label5.Caption :='Ausgabe';

    label6.Caption :='';

    edit1.text:='';

    edit2.text:='';

    edit3.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);{BEENDEN}

begin

    close;

end;

end.

Hinweis:

Vor  else darf kein Semikolon stehen.

Bitte auf eine ordentliche Form achten: 

Verwendet die Eigenschaften LEFT; TOP; HEIGHT; WEIDTH zum Erstellen der Komponenten des Objektinspektors.