Создание класса и объявление конструктора - Delphi - Ответ 6920241

unit Unit1;
 
interface
 
uses
  Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Math, StdCtrls, ExtCtrls,DateUtils ,Contnrs;
 
type
 TCustomer = class
 //constructor create;
 
  private
  CustomerNomer :integer;
  CustomerPotok :integer;
  CustomerVremya :double;
 
  public
  property Nomer:integer
   read CustomerNomer;
  property Potok:integer
   read CustomerPotok;
  property Vremya:double
    read   CustomerVremya;
 
  constructor Create(const CustomerNomer :integer;
                     const CustomerPotok :integer;
                     const CustomerVremya :double);
    end;
 
  TForm1 = class(TForm)
    alfa: TEdit;
    Label1: TLabel;
    Button1: TButton;
    betta: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FromCreate(Sented: TObject);
   // procedure gamma1(Sender: TObject);
  private
  myList: TList;
  Procedure showListContents;
    { Private declarations }
  public
  procedure gamma1;
  procedure gamma2;
  procedure gamma3;
  procedure Veibula;
  procedure LogNorm;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation