[Delphi] Калькулятор. Процедура "-"

[Рамик]

Помогите пожалуйста с процедурой знака "минус"...
вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PnTools: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel0: TPanel;
    Panel12: TPanel;
    PnMinus: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Label1: TLabel;
    Panel17: TPanel;
    procedure Panel1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
    procedure Panel8Click(Sender: TObject);
    procedure Panel9Click(Sender: TObject);
    procedure Panel0Click(Sender: TObject);
    procedure NaborIntChisla(number:string);
    procedure PnMinusClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  zanovo: boolean;
  znak: string;

implementation

{$R *.dfm}

procedure TForm1.NaborIntChisla(number:string);
begin
if zanovo=false then
    Label1.Caption:=number else
      Label1.Caption:=Label1.Caption+number;
zanovo:=true;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
NaborIntChisla(Panel1.Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
zanovo:=false;
znak:='';
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
NaborIntChisla(Panel2.Caption);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
NaborIntChisla(Panel3.Caption);
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
NaborIntChisla(Panel4.Caption);
end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
NaborIntChisla(Panel5.Caption);
end;

procedure TForm1.Panel6Click(Sender: TObject);
begin
NaborIntChisla(Panel6.Caption);
end;

procedure TForm1.Panel7Click(Sender: TObject);
begin
NaborIntChisla(Panel7.Caption);
end;

procedure TForm1.Panel8Click(Sender: TObject);
begin
NaborIntChisla(Panel8.Caption);
end;

procedure TForm1.Panel9Click(Sender: TObject);
begin
NaborIntChisla(Panel9.Caption);
end;

procedure TForm1.Panel0Click(Sender: TObject);
begin
NaborIntChisla(Panel0.Caption);
end;

procedure TForm1.PnMinusClick(Sender: TObject);
var lbtmp:integer;
    n:string;
begin


end;

end.

[zmey31313]

http://www.programmersforum.ru/showthread.php?t=85109

[psycho-coder]

сохраняешь значение, как флаг действия (в твоем случае "-"), а при нажатие на равно или другую кнопку действия, то выполняешь предыдущее и сохраняешь текущее.