Delphi. Последовательный вывод нажатых символов в Lable

[KiselevKarl52]

Всем доброго времени суток.
Задали задание создать обычный калькулятор похожий на встроенный в Windows.
Вопрос в том, как сделать, чтобы знаки последовательно выводились в Label. К примеру:
Нажимаем на единицу (1), в label выводится единица, нажимаем плюс (+), он выводится следом за единицей 1+.... Так же выводим следующее число 1+2..., но дальше если мы еще раз нажимаем плюс (+), программа должна вывести 3+...
Если что то не понятно, спрашивайте, попытаюсь перефразировать

[Stilet]

Могу с потолка предложить такое:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						Label1: TLabel;
						procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure FormCreate(Sender: TObject);
						procedure FormKeyPress(Sender: TObject; var Key: char);
      private
            { private declarations }
      public
            { public declarations }
      end;

var   s:double; st:TStringList;  kl:char;
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
      KeyPreview:=true;
      Label1.Align:=alClient;
      s:=0;
      st:=TStringList.Create;
      Label1.Caption:='';
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
      st.Free;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
var i:integer;
begin
  if key in ['+','-'] then begin
    if key='-' then i:=-1 else i:=1;
    st.Delimiter:=kl; kl:=key;
    st.DelimitedText:=Label1.Caption;
    if st.Count=2 then begin
     s:=StrToFloatDef(st[0],0)+StrToFloatDef(st[1],0)*i;
     Label1.Caption:=FloatToStr(s)+key;
		end else
    Label1.Caption:=Label1.Caption+key;
	end else
  Label1.Caption:=Label1.Caption+key;
end;

end.

[min@y™]

большая ссылка
для автора вопроса и для остальных калькуляторописателей.

[ZX Spectrum-128]

Delphi. ... Lable

Посоны из Borland (Embarcadero) нервно икнули.

[Stilet]

Посоны из Borland (Embarcadero) нервно икнули.

Скажи спасибо, что в конце буква "е" а не "я". Посоны из эмбаркадырки бы просто огнебизяной подавились ))