Kann mir jemand bei der erstellung eines Quelltextes helfen?

[Bloodhound]

So die String hab ich geändert, das mit den komentaren geht jetz denke ich auch in Ordnung

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    a: TEdit;
    b: TEdit;
    fi: TEdit;
    Ergebnis: TEdit;
    Berechnen: TButton;
    CheckBox1: TCheckBox;
    procedure aChange(Sender: TObject);
    procedure bChange(Sender: TObject);
    procedure fiChange(Sender: TObject);
    procedure ErgebnisChange(Sender: TObject);
    procedure BerechnenClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a,b,fi: text;

implementation

{$R *.dfm}

procedure TForm1.aChange(Sender: TObject);
begin
a := 'Wert für a';
end;

procedure TForm1.bChange(Sender: TObject);
begin
 b := floattostr(2 * 3.14159 // '2 * 3.14159geteilt durch eingabe ist b')
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
//
end;

procedure TForm1.fiChange(Sender: TObject);
begin
fi := 'Wert für fi(die eingabe muss noch *(-1)genommen werden';
end;

procedure TForm1.BerechnenClick(Sender: TObject);
begin
//
end;

procedure TForm1.ErgebnisChange(Sender: TObject);
begin
if checkbox1.checked then
* btemp := b 'Wenn checkbox angehakt muss b mit pi multipliziert werden';
else
* btemp := floattostr(3,14159 * strtofloat(b));
DeinLabel.Caption := 'f(x) =' a + '*sin(btemp(x-' + (-fi) + '))';
end;

end.