unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    SpeedButton1: TSpeedButton;
    ListBox1: TListBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b,c,x,y,z:integer;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin


   begin
   randomize;
     a:=random(48)+1;
     b:=random(48)+1;
     c:=random(48)+1;
     x:=random(48)+1;
     y:=random(48)+1;
     z:=random(48)+1;
    end;
    edit1.Text:=inttostr(a);
    edit2.Text:=inttostr(b);
    edit3.Text:=inttostr(c);
    edit4.Text:=inttostr(x);
    edit5.Text:=inttostr(y);
    edit6.Text:=inttostr(z);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
deger:Ansistring;
i,satir:integer;
begin
deger:=edit1.Text +' '+ edit2.Text +' '+ edit3.Text +' '+ edit4.Text +' '+ edit5.Text +' '+ edit6.Text;
satir:=ListBox1.Items.Count;
for i:=0 to satir-1 do
begin
if deger=ListBox1.items[i] then
begin
SpeedButton1.Click;
exit;
end;
end;
ListBox1.Items.Append(edit1.Text +' '+ edit2.Text +' '+ edit3.Text +' '+ edit4.Text +' '+ edit5.Text +' '+ edit6.Text);
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ListBox1.Items.Delete(listbox1.ItemIndex);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
i:integer;
begin
ListBox1.Clear;
for i:=1 to 8 do
   begin
   randomize;
     a:=random(48)+1;
     b:=random(48)+1;
     c:=random(48)+1;
     x:=random(48)+1;
     y:=random(48)+1;
     z:=random(48)+1;
    ListBox1.Items.Add(inttostr(a)+' '+inttostr(b)+' '+inttostr(c)+' '+inttostr(x)+' '+inttostr(y)+' '+inttostr(z));
    end;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('C:\Program Files\Borland\Delphi7\Projects\sayısal\kupon\kupon.txt');
ShowMessage('Kayıt İşlemi Yapıldı"C:\Program Files\Borland\Delphi7\Projects\sayısal\kupon"');
ListBox1.Clear;
end;

end.