Temperatur Umrechner

[jens106]

Hallo,
ich bastle mir gerade einen (wie der Titel des Threads schon sagt) Temperatur Umrechner. Ich komme soweit auch gan gut klar. Um euch mal eben zu zeigen wie das ganze bei mir aus sieht habe ich ein Bild mit hochgelade.

Aber aus Irgend einem Grund bekomme ich einen fehler.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zahl, ergebnis : integer;
begin
   zahl :=StrToInt(Edit1.text);

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end
       end
   else
      begin
      end

   // Kontrolle auf neue Edit Box

   if ComboBox1.text='C° (Celsius)' then      // hier kommt immer der Fehler
      begin
         if ComboBox2.text='K (Kelvin)' then
            begin
               ergebnis:=zahl+273;
               Edit1.Text:= IntToStr(ergebnis);
            end
         else
            begin
            end
       end
   else
      begin
      end


end;

end.

ich hoffe ihr könnt mir helfen


gruß jens106