Не запускает проект в Delphi

[xpehoc]

Начал делать форму в делфи по нахождению дискриминанта. В коде настроил для единственной кнопки функцию. Хотел проверить, но при нажатии на зелёную стрелочку или F9 окна просто моргают и форма не запускается.
Пробовал убрать код с кнопки - всё равно тот же результат.
Вот весь код

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    EditA: TEdit;
    EditB: TEdit;
    EditC: TEdit;
    LabelA: TLabel;
    LabelB: TLabel;
    LabelC: TLabel;
    ButtonResult: TButton;
    Result: TLabel;
    procedure ButtonResultClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ButtonResultClick(Sender: TObject);
var a,b,c,z:integer; z1:real;
begin
a:=EditA.Text;
b:=EditB.Text;
c:=EditC.Text;
z:=(b*b)-(4*a*c);

if (z<0) then
begin
Result.Caption:='D<0 | Ó ôóíêöèè íåò êîðíåé.';
end;

if (z=0) then
begin
z1:=-b/(2*a);
Result.Caption:='D=0 | Ó ôóíêöèè îäèí êîðåíü: '+FloatToStr(z1);
end;

if (z>0) then
begin
Result.Caption:='D>0 | Ó ôóíêöèè äâà êîðíÿ.';
end;

end;

end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Serge_Bliznykov]

перегрузите компьютер.
если не поможет - создайте новый проект (можно просто к одной кнопкой, даже без кода).
если это не поможет - переустанавливайте Delphi