interface

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

Const
  Un : array[0..7] of Real = (3.3, 5.0, 9.0, 12.0, 15.0, 18.0, 16.0, 25.0);
  Il : array[0..3] of Real = (0.1, 0.5, 1.0, 1.0);
  Uw : array[0..7] of Real = (9.0, 9.0, 12.0, 15.0, 15.0, 18.0, 18.0, 24.0);
  Iw : array[0..3] of Real = (0.15, 0.65, 1.1, 1.1);
  R1 : array[0..3] of Real = (12, 2.4, 1.2, 24.9);
  P1 : array[0..3] of Real = (0.25, 1, 2, 0.25);
  R2 : array[0..7] of Real = (240, 240, 240, 220, 240, 240, 169, 249);

 . . . . .

  private
    { Private declarations }
  nU, nI : Integer;
  public
    { Public declarations }
  end;

var
  frmNT: TfrmNT;

implementation

{$R *.dfm}
uses uNavigation;

procedure TfrmNT.rgUClick(Sender: TObject);
begin
  nU := rgU.ItemIndex;
  nI := rgI.ItemIndex;
. . . .

  Edit1.Text := FloatToStrF(R1[nI], ffNumber, 8, 2);

. . . .
end;