Convert mm to inch and back

We know, that one inch contains 25.4 mm. So, to convert mm to inch, we should made division of value and 25.4. To convert inch to mm, we should made multiplication of value and 25.4. For example:

// MmToInch
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/25.4);
end;

// InchToMm
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label2.Caption:=FloatToStr(StrToFloat(Edit1.Text)*25.4);
end;