Отчет по практике: Программа для подсчета выручки казино

end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Form1. Visible:= true;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin

Hide;

end;

procedure TForm2. Button1Click (Sender: TObject);

* процедура удаления дилера

begin

ComboBox1. Items. Delete (ComboBox1. ItemIndex);

ComboBox1. Items. SaveToFile ('c:\file.txt');

form1. ComboBox3. Items. LoadFromFile ('c:\file.txt');

ComboBox1. Items. LoadFromFile ('c:\file.txt');

hide;

end;

end.