Собственный дизайн формы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinProvider, sSkinManager, ExtCtrls, sPanel, StdCtrls, Mask,
  sMaskEdit, sCustomComboEdit, sCurrEdit, sEdit, sLabel, sCheckBox,Math;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sEdit1: TsEdit;
    sLabel1: TsLabel;
    sEdit2: TsEdit;
    sCheckBox1: TsCheckBox;
    sEdit3: TsEdit;
    procedure sCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
  if sCheckBox1.Checked = true then
        sEdit3.Enabled:= true;
  if StrToFloat(sEdit3.Text) > 0 then
   sEdit2.Text:=FloatToStr(Power(StrToFloat(sEdit1.text), StrToFloat(sEdit3.text)));
end;
 
end.

if StrToFloat(sEdit3.Text) > 0 then //Если у тебя правельная запись в sEdit3
   sEdit2.Text:=FloatToStr(Power(StrToFloat(sEdit1.text), StrToFloat(sEdit3.text))); //Если правельная формула

Try If StrToFloat(sEdit3.Text) > 0 then begin
  sEdit2.Text := FloatToStr(Power(StrToFloat(sEdit1.text), StrToFloat(sEdit3.text)));
end;
Except
  ShowMessage('Исходные данные неверны');
  Halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit3.Enabled:=false;  //выключаем Эдит
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = true then //включаем
Edit3.Enabled:= true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToFloat(Edit3.Text) > 0 then    //считаем
Edit2.Text:= FloatToStrF(Power(StrToFloat(Edit1.text),StrToFloat(Edit3.text)),ffFixed,8,4)
else Showmessage('Введено неверное значение в Edit3!');  //если введено не положительное число
end;

function Power(const Base, Exponent: Extended): Extended;
begin
  if Exponent = 0.0 then
    Result := 1.0               { n^0 = 1 }
  else if (Base = 0.0) and (Exponent > 0.0) then
    Result := 0.0               { 0^n = 0, n > 0 }
  else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then
    Result := IntPower(Base, Integer(Trunc(Exponent)))
  else
    Result := Exp(Exponent * Ln(Base))
end;
 
function IntPower(X: Extended; I: Integer): Extended;
var
  Y: Integer;
begin
  Y := Abs(I);
  Result := 1.0;
  while Y > 0 do begin
    while not Odd(Y) do
    begin
      Y := Y shr 1;
      X := X * X
    end;
    Dec(Y);
    Result := Result * X
  end;
  if I < 0 then Result := 1.0 / Result
end;