Probleme mit einem Rechner

[Patrick162]

Tach.

Als erster, sry, falls ich hier in der Falschen Sektion gepostet habe.


So kommen wir mal zu meinem Problem.

Ich wollte einen Rechner programmieren, um Kreise auszurrechen.
Also den Umfang, Durchmesser, Radius und Flächeninhalt.

Leider komme ich nicht mehr weiter, da ich immer Fehlermeldungen bekomme...

Ich hoffe ihr könnt mir helfen, hier der Source.Code:

Delphi-Quellcode:

unit Kreisberechnung;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r, u, d, A: extended;
  lol, ergebnis1, ergebnis2, ergebnis3, ergebnis4: string;
  pi: extended;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
r := strtofloat(Edit1.Text);
u := strtofloat(Edit2.text);
d := strtofloat(Edit3.Text);
A := strtofloat(Edit4.Text);
pi := floattostrf(3.14159265358);

ergebnis1 := 2*  pi * r;
Label12.Caption := ergebnis1;
end;
end.

Greets Patrick