PQ-Formelrechner

Hi, wir sollten im Unterricht in Informatik ne PQ-Formelrechner erstellen. Hier der Code:

unit UPQ;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type {Die verwendeten Button und so}
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Button1: TButton;
Edit3: TEdit;
Edit4: TEdit;
Label5: TLabel;
Label6: TLabel;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); {Das wichtigste das Umrechnen}
var Zahl1,Zahl2, x1, x2 : double;
begin
try
Zahl1 := StrToFloat(Edit1.Text);
Zahl2 := StrToFloat(Edit2.Text);
x1 := -Zahl1/2+sqrt(Zahl1*Zahl1 /4-Zahl2);
x2 := -Zahl1/2-sqrt(Zahl1*Zahl1 /4-Zahl2);
Edit3.Text := FloatToStr(x1);
Edit4.Text := FloatToStr(x2);
except
ShowMessage('Gleichung nicht lösbar!');
end;
end;

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

end.

Viel spass damit. Mfg Wilhelm