Укажите на ошибку в программе

[Draurign]

Впервые решил накодить что-то самостоятельно, и вот, хрень вышла. Оно-то запускается, но результата в положенном месте не выводит.
Картина такая:

unit Unit1;

interface

uses
  Windows, Math, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f : real;
  x : real;
  y : real;
  q : Real;
  str: string;
implementation

{$R *.dfm}

procedure
TForm1.Button1Click(Sender:TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
f:=(Power(x,2)+2*x+7-y)*(Power(y,2)+4*y-2+x);
q:=cos(x)*sqrt(tan(2*pi/3));
Label7.Caption:=FloatToStr(f);
Label8.Caption:=FloatToStr(q*180/pi);
Label9.Caption:=FloatToStr(q*pi/180);

end;

end.

Помогите дураку ((

[Аватар]

Button1Click населен на OnClick кнопки? Выделить кнопку, F11, закладка Events и смотреть, что в свойстве OnClick кнопки

[tmtm]

Скорее всего, попытка вычислить корень отрицательного числа. Потом, надо бы всем переменным присвоить тип Extended.

[Draurign]

Аватар,
спасибо, это действительно сдвинуло дело с мертвой точки.
Но теперь при запуске и кликании на кнопку запуска выдает ошибку вида

и выделяет строку
q:=cos(x)*sqrt(tan(2*pi/3));
Где я снова нагадил?

[Djleito]

скинь проект, тогда можно будет исправить ошибку

[Draurign]

Djleito, прошу
1.zip

[Zer0]

А Вы не пробовали посчитать тангенс от 2пи/3 самостоятельно? С действительными числами не проходит трюк извлечения корня из отрицательного числа, потому и ругается

[Draurign]

Zer0,
пробовал менять строку на
q:=cos(x)*sqrt(x);
и на
q:=cos(x)*tan(2*pi/3);
то есть убирать либо тангенс, либо корень - оба варианта работают, а вот на сложную функцию хоть убей.
А если заранее проверить число на отрицательность?
Вручную можно посчитать, но тут вопрос не результата, а процесса.

[tmtm]

Если процесс важнее результата, то возьмите подкоренное выражение в abs

[Zer0]

Draurign, я вовсе не предлагал подставлять значение ручных подсчетов Я просто хотел показать, что Вы пытаетесь взять корень из отрицательного числа. Либо формула некорректна, либо одно из двух (т.е. решать нужно в комплексных числах)