unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    StaticText1: TStaticText;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin
  if RadioGroup1.ItemIndex=0
  then
  begin
    Label2.Caption:='km/h';
    Label3.Caption:='Knoten';
    Label1.Caption:='Gebeben sie hier die Geschwindigkeit in km/h an';
  end
  else
  begin
   Label2.Caption:='Knoten';
   Label3.Caption:='km/h';
   Label1.Caption:='Gebeben sie hier die Geschwindigkeit in Knoten an';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  knoten:real;
  kmh:real;

begin
  if RadioGroup1.ItemIndex=0
  then
  begin
    kmh:=StrToFloat(Edit1.Text);
    knoten:=kmh/1.852;
    Edit2.Text:=FloatToStrF(knoten,ffFixed,6,2);
  end
  else
  begin
    knoten:=StrToFloat(Edit1.Text);
    kmh:=knoten*1.852;
    Edit2.Text:=FloatToStrF(kmh,ffFixed,6,2);
  end;
end;

end.