Is not a valid integer value

[Yurk@]

ня:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
D,g,e,f:integer;
x1,x2:real;
begin
g:=strtointdef(Edit1.Text,0);
e:=strtointdef(Edit2.Text,0);
f:=strtointdef(Edit3.Text,0);

 D:=(e*e)-(4*g*f);
if d<0 then
 begin
  Edit4.Text:=('Kornei');
  Edit5.text:=('nety');
 end;
 if d=0 then
 begin
 x1:=(-e)/(2*g);
  x2:=x1;
 end;
 if d>0 then
 begin
  x1:=((-e)+sqrt(d))/(2*g);
  x2:=((-e)-sqrt(d))/(2*g);
 end;

  Edit4.text:=floattostr(x1);
  Edit5.text:=floattostr(x2);
end;

end.

в код самого расчета не вникал. просто "перефразировал" всё вышесказанное

[[Jank]]

ВАХ! Спасибо большое заработало! Всем помогавшим +!!!