Довідник : одиниці вимірювання, система числення, час у різних країнах

Label_2.Caption:=Format(FormatString, [UkrRecognizeAmount(Base2.Value)]);

except end;

//Beep;

end;

// викликається на зміну числа або основи для переводу

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

try

F.Free;

except end;

SaveSetings;

end;

// при виході закриває файли і зберігає установки

procedure TMainForm.RadioGroupClick(Sender: TObject);

var MItems : TStrings; // Назви величин

i, t : integer;

begin

MItems := TStringList.Create;

Panel.Free; // знищення попередньої панелі

Panel := TPanel.Create(TabSheet1);// і створення нової

Panel.Parent := TabSheet1;

Panel.Align := alClient;

Panel.Caption:='';

Panel.BevelInner := bvRaised;

Panel.BevelOuter :=bvLowered;