HJÆLP :P, DELPHI VIL IKKE DIVIDERE :S

Kode 

unit unit1;

interface

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

type
  TForm1 = class(TForm)
    CelsiusBar1: TProgressBar;
    CelsiusEdit: TEdit;
    FahrenheitBar2: TProgressBar;
    RomerBar3: TProgressBar;
    Button1: TButton;
    FahrenheitEdit: TEdit;
    RomerEdit: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Celsius,Romer,Fahrenheit : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Celsius:= StrToInt(CelsiusEdit.Text);
CelsiusBar1.Position:=Celsius;
Fahrenheit := (Celsius*9/5)+32;
FahrenheitBar2.Position:= Fahrenheit;
FahrenheitEdit.Text := IntToStr(Fahrenheit);
Romer := Fahrenheit/4;
RomerBar3.Position:=Fahrenheit;
RomerEdit.Text := IntToStr(Romer);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Fahrenheit:= StrToInt(FahrenheitEdit.Text);
FahrenheitBar2.Position:=Fahrenheit;
Celsius:= Fahrenheit*5/9-32;
CelsiusBar1.Position:= Celsius;
CelsiusEdit.Text := IntToStr(Celsius);
Romer := Fahrenheit/4;
RomerBar3.Position:=Fahrenheit;
RomerEdit.Text := IntToStr(Romer);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Romer:= StrToInt(RomerEdit.Text);
RomerBar3.Position:=Romer;
Fahrenheit:= Romer/4;
FahrenheitBar2.Position:= Fahrenheit;
FahrenheitEdit.Text := IntToStr(Fahrenheit);
Fahrenheit:= Celsius*9/5+32;
CelsiusBar1.Position:= Celsius;
CelsiusEdit.Text := IntToStr(Celsius);
end;

end.