Forum Programosy

Witka, mam problem z Delphi 7. Napisałem prosty kalkulator ale nie chce kompilować i zapisać jako exe. Takie opcje jak, Save project as, Compile czy Run są po prostu niedostępne. Domyślam się, że wina może leżeć po stronie niezarejestrowanego programu. Nie potrafię znaleźć aktualnych seriali. Dodatkowo wklejam kod:

Kod: Zaznacz wszystko

unit Kalkulator;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g,h:Single;
begin
a:=StrToFloat(Edit1.Text); {pobranie liczby a z pola Edit1}
b:=StrToFloat(Edit2.Text); {pobranie liczby b z pola Edit2}
c:=a+b; {obliczenie sumy}
d:=a-b; {obliczenie różnicy}
e:=a*b; {obliczenie iloczynu}
f:=a/b; {obliczenie ilorazu}
g:=sqr(a); {obliczenie kwadratu liczby a}
h:=sqr(b); {obliczenie kwadratu liczby b}
Label4.Caption:=FloatToStrF(c, ffNumber, 32, 2); {wyswietlenie na etykiecie 4 sumy}
Label6.Caption:=FloatToStrF(d, ffNumber, 32, 2); {wyswietlenie na etykiecie 6 róźnicy}
Label8.Caption:=FloatToStrF(e, ffNumber, 32, 2); {wyswietlenie na etykiecie 8 iloczynu}
Label10.Caption:=FloatToStrF(f, ffNumber, 32, 2); {wyswietlenie na etykiecie 10 ilorazu}
Label12.Caption:=FloatToStrF(g, ffNumber, 32, 2); {wyswietlenie na etykiecie 12 kwadratu liczby a}
Label14.Caption:=FloatToStrF(h, ffNumber, 32, 2); {wyswietlenie na etykiecie 14 kwadratu liczby b}
if a>0 then
Label16.Caption:=FloatToStrF(a, ffNumber, 32, 2); {wyswietl na etykiecie 16|a|}
else
Label16.Caption:=FloatToStrF(-a, ffNumber, 32, 2); {wyswietl na etykiecie 16|a|}
if b>0 then
Label18.Caption:=FloatToStrF(b, ffNumber, 32, 2); {wyswietl na etykiecie 18|b|}
else
Label18.Caption:=FloatToStrF(-b, ffNumber, 32, 2); {wyswietl na etykiecie 18|b|}
Label20.Caption:=FloatToStrF(-a, ffNumber, 32, 2); {wyswietl na etykiecie 20 przeciwną liczby a}
Label22.Caption:=FloatToStrF(-b, ffNumber, 32, 2); {wyswietl na etykiecie 22 przeciwną liczby b}
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then {jesli wcisnięty klawisz to Enter}
Edit2.SetFocus; {uaktywnij pole Edit2}

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then {jesli wcisnięty klawisz to Enter}
Button1.SetFocus; {uaktywnij przycisk Button1}
end;

end.

Będę wdzięczny za jakąkolwiek pomoc.