unit Unit4;

interface

uses
  Classes, StdCtrls, SysUtils;

type
  Calculator = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    listbox_input: TListBox;
    listbox_output: TListBox;
    result: TLabel;
    start: TDateTime;
    finish: TDateTime;
  end;

implementation

{ Calculator }

procedure Calculator.Execute;
var
  count: integer;
  prev: double;
  TimeStamp : TTimeStamp;
begin
  count := 1;
  prev := 0;
  while count < 100 do
  begin
    if listbox_input.Items.Count >= count then
    begin
      prev := (0.1 * StrToInt(listbox_input.Items[count - 1]) + prev) / 2;
      listbox_output.Items.add(FloatToStr(prev));
      count := count + 1;
    end;
  end;
  finish := Time;
  TimeStamp := DateTimeToTimeStamp(finish - start);
  Dec(TimeStamp.Date, TTimeStamp(DateTimeToTimeStamp(0)).Date);
  result.Caption := FloatToStr((TimeStamp.Date*24*60*60)+(TimeStamp.Time));
end;

end.