procedure TLabrab1Results.ZnachenieXKeyPress(Sender: TObject; var Key: char);
begin
  Case Key Of
   '0'..'9': ;
   #8: ;
   #13: ZnachenieY.SetFocus;
   '.',',','-':
     Begin
       If Key='.' Then
                  Key:=',';
       If Pos(',',ZnachenieX.Text)>=1 Then
                                       Key:=Chr(0)
     end;
   Else
     Key:=Chr(0);
  end;
end;

procedure TLabrab1Results.ZnachenieYKeyPress(Sender: TObject; var Key: char);
begin
  Case Key Of
   '0'..'9': ;
   #8: ;
   #13: Otvet.Click;
   '.',',','-':
     Begin
       If Key='.' Then
                  Key:=',';
       If Pos(',',ZnachenieY.Text)>=1 Then
                                       Key:=Chr(0)
     end;
   Else
     Key:=Chr(0);
  end;
end;

procedure TLabrab1Results.OtvetClick(Sender: TObject);
var X, Y: Real;
  Z: String;
begin
  Z:= '?';
  if (ZnachenieX.text='') or (ZnachenieY.text='')
  or (ZnachenieX.text='-') or (ZnachenieY.text='-')
  or (ZnachenieX.text=',') or (ZnachenieY.text=',') then
                                                     Begin
                                                      showmessage ('Заполните корректно оба поля');
                                                     end
  else
  Begin
  Y:= StrToFloat (ZnachenieY.text);
  X:= StrToFloat (ZnachenieX.text);
  if (X+Y)>0 then
              Begin
                Z:= ((X-Y)/(sqrt(X+Y)))+ (X*(sqr(Y)))/ ((sin (sqr(X)))*(sqr(cos(Y))));
                Reshenie.caption:= FloatToStr(Z)
              end
  else
  if (X+Y)=0 then
              Begin
                Showmessage('Знаменатель не может быть равен нулю')
              end
  else
  if (X+Y)<0 then
              Begin
                Showmessage ('Подкоренное значение не может быть отрицательным')
              end
  end
end;

procedure TLabrab1Results.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction:=caFree;
  Titylnik.close;
end;

end.