Błąd Unsatisfied forward of external declaration POMOCY [delphi]

0

Witam, oto kod mojego programu:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    ListBox2: TListBox;
    Button1: TButton;
    Label1: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Edit5: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label9: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Edit11: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    ListBox3: TListBox;
    Label16: TLabel;
    ListBox4: TListBox;
    Label17: TLabel;
    Label18: TLabel;
    ListBox5: TListBox;
    Label7: TLabel;
    ListBox6: TListBox;
    Label8: TLabel;
    Label19: TLabel;
    ListBox7: TListBox;
    Label20: TLabel;
    Label21: TLabel;
    ListBox8: TListBox;
    CheckBox6: TCheckBox;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button2: TButton;
    Edit16: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit17: TEdit;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Label22: TLabel;
    Button16: TButton;
    Button18: TButton;
    Label23: TLabel;
    Button17: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    RadioButton2: TRadioButton;
    MainMenu1: TMainMenu;
    da1: TMenuItem;
    Szukaj1: TMenuItem;
    Pomoc1: TMenuItem;
    ImiiNazwisko1: TMenuItem;
    Adreskorespondencji1: TMenuItem;
    Unazwafirmy1: TMenuItem;
    Okresubezpieczenia1: TMenuItem;
    Skadkapatnajednorazowo1: TMenuItem;
    erminpatno1: TMenuItem;
    Nrpolisy1: TMenuItem;
    Przedmiotubezpieczenia1: TMenuItem;
    Zaznaczenie1: TMenuItem;
    Usu1: TMenuItem;
    Pozycja1: TMenuItem;
    Dodaj1: TMenuItem;
    Usu2: TMenuItem;
    Edytuj1: TMenuItem;
    Baza1: TMenuItem;
    Zapisz1: TMenuItem;
    Wczytaj1: TMenuItem;
    Edytuj2: TMenuItem;
    Ustawinia1: TMenuItem;
    Bazadanych1: TMenuItem;
    Button30: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Enter(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure RadioButton1DblClick(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure ImiiNazwisko1Click(Sender: TObject);
    procedure Adreskorespondencji1Click(Sender: TObject);
    procedure Unazwafirmy1Click(Sender: TObject);
    procedure Okresubezpieczenia1Click(Sender: TObject);
    procedure Skadkapatnajednorazowo1Click(Sender: TObject);
    procedure erminpatno1Click(Sender: TObject);
    procedure Nrpolisy1Click(Sender: TObject);
    procedure Przedmiotubezpieczenia1Click(Sender: TObject);
    procedure Usu1Click(Sender: TObject);
    procedure Bazadanych1Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    LastSearch: string;
      LastIndex: integer;
  public
      StringList : TStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit5;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Click;
ListBox1.Items.Add(Edit1.Text);
if Edit3.Text > '' then ListBox1.Items.Add(Edit3.Text);
ListBox2.Items.Add(Edit5.Text);
  ListBox3.Items.Add(Combobox1.Text);
  If checkbox1.Checked = true then ListBox4.Items.Add(Checkbox1.Caption);
  If checkbox2.Checked = true then ListBox4.Items.Add(Checkbox2.Caption);
  If checkbox3.Checked = true then ListBox4.Items.Add(Checkbox3.Caption);
  If checkbox4.Checked = true then ListBox4.Items.Add(Checkbox4.Caption);
  If checkbox5.Checked = true then ListBox4.Items.Add(Checkbox5.Caption);
  If checkbox6.Checked = true then ListBox4.Items.Add(Checkbox6.Caption);
   ListBox5.Items.Add(Edit6.Text);

 ListBox6.Items.Add('od '+Edit7.Text+' do '+Edit8.Text);
 if RadioButton1.Checked = true then ListBox7.Items.Add(Radiobutton1.Caption);
 if RadioButton2.Checked = true then ListBox7.Items.Add(Radiobutton2.Caption+
 ', termin: '+edit9.Text+
 ', wysokosc: '+edit10.Text+' zł');
       ListBox8.Items.Add(Edit11.Text);
        if edit3.Text >'' then
               ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          if edit16.Text = '1' then ListBox4.Items.Add('');

          if edit16.text = '3' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

           if edit16.text = '4' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

          if edit16.text = '5' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

           ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;


          if edit16.text = '6' then begin
          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

           ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');

          ListBox1.Items.Add('');
          ListBox2.Items.Add('');
          ListBox3.Items.Add('');
          ListBox5.Items.Add('');
          ListBox6.Items.Add('');
          ListBox7.Items.Add('');
          end;

            ListBox5.Items.Add('');
             ListBox6.Items.Add('');
              ListBox7.Items.Add('');
               ListBox8.Items.Add('');

               

        ListBox1.Items.Add('-----------------------------------------');
         ListBox2.Items.Add('-----------------------------------------');
          ListBox3.Items.Add('-----------------------------------------');
           ListBox4.Items.Add('-----------------------------------------');
            ListBox5.Items.Add('-----------------------------------------');
             ListBox6.Items.Add('-----------------------------------------');
              ListBox7.Items.Add('-----------------------------------------');
               ListBox8.Items.Add('-----------------------------------------');

               

     Button10.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  ListBox1.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox1.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox2.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox2.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox3.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox3.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
    ListBox4.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox4.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
   ListBox5.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox5.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
   ListBox6.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox6.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox7.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox7.Handle, LB_SETHORIZONTALEXTENT, 400, 0);
  ListBox8.Width := 100;
  // listbox can be scrolled by 100 pixels horizontally now:
  SendMessage (ListBox8.Handle, LB_SETHORIZONTALEXTENT, 400, 0);



end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';


       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;


procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

 X := A+B+C+D+E+F;

 edit16.Text :=FloatToStr(X)
end;

end.



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';


       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;

procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

 X := A+B+C+D+E+F;

 edit16.Text :=FloatToStr(X)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Button12.Click;
Button7.Click;
Button8.Click;
Button9.Click;
Button13.Click;
end;
procedure TForm1.Button4Click(Sender: TObject);
   var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.WriteComponent(Listbox1);
  MS.WriteComponent(Listbox2);
  MS.WriteComponent(Listbox3);
  MS.WriteComponent(Listbox4);
  MS.WriteComponent(Listbox5);
  MS.WriteComponent(Listbox6);
  MS.WriteComponent(Listbox7);
  MS.SaveToFile('\baza.bin');
  MS.Free;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('\baza.bin');
  MS.ReadComponent(listbox1);
  MS.ReadComponent(listbox2);
  MS.ReadComponent(listbox3);
  MS.ReadComponent(listbox4);
  MS.ReadComponent(listbox5);
  MS.ReadComponent(listbox6);
  MS.ReadComponent(listbox7);
  MS.ReadComponent(listbox8);
  MS.Free;
end;


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

procedure TForm1.Button7Click(Sender: TObject);
begin
if ListBox1.Items.IndexOf (Edit1.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit1.text);

if ListBox1.Items.IndexOf (Edit3.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit3.text);

if ListBox2.Items.IndexOf (Edit5.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit5.text);

if ListBox3.Items.IndexOf (Combobox1.Text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(Combobox1.Text);

if ListBox4.Items.IndexOf (Checkbox1.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox1.Caption);

if ListBox4.Items.IndexOf (Checkbox2.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox2.Caption);

if ListBox4.Items.IndexOf (Checkbox3.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox3.Caption);

if ListBox4.Items.IndexOf (Checkbox4.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox4.Caption);

if ListBox4.Items.IndexOf (Checkbox5.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox5.Caption);

if ListBox4.Items.IndexOf (Checkbox6.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(checkbox6.Caption);

if ListBox5.Items.IndexOf (Edit6.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit6.text);


if ListBox7.Items.IndexOf (Edit9.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit9.text);

if ListBox7.Items.IndexOf (Edit10.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit10.text);

if ListBox8.Items.IndexOf (Edit11.text) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(edit11.text);

if ListBox7.Items.IndexOf (Radiobutton1.Caption) > -1 then
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(Radiobutton1.Caption);
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
    if ListBox1.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox1.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox1.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox1.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox1.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox1.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox1.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox1.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox1.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox1.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox1.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox1.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox1.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox1.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox1.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox1.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox1.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox1.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox1.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox1.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox1.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox1.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox1.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox1.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox1.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox1.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox1.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox1.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox1.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox1.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox1.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox1.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox1.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox1.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox1.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox1.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox1.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox1.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox1.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox1.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox1.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox1.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox1.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox1.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox1.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox1.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox1.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox1.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox1.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox1.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox1.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox2.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox2.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox2.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox2.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox2.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox2.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox2.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox2.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox2.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox2.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox2.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox2.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox2.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox2.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox2.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox2.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox2.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox2.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox2.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox2.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox2.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox2.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox2.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox2.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox2.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox2.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox2.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox2.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox2.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox2.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox2.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox2.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox2.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox2.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox2.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox2.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox2.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox2.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox2.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox2.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox2.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox2.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox2.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox2.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox2.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox2.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox2.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox2.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox2.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox2.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox2.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox3.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox3.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox3.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox3.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox3.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox3.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox3.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox3.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox3.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox3.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox3.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox3.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox3.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox3.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox3.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox3.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox3.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox3.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox3.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox3.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox3.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox3.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox3.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox3.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox3.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox3.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox3.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox3.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox3.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox3.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox3.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox3.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox3.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox3.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox3.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox3.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox3.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox3.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox3.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox3.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox3.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox3.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox3.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox3.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox3.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox3.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox3.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox3.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox3.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox3.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox3.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox4.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox4.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox4.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox4.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox4.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox4.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox4.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox4.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox4.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox4.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox4.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox4.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox4.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox4.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox4.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox4.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox4.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox4.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox4.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox4.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox4.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox4.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox4.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox4.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox4.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox4.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox4.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox4.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox4.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox4.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox4.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox4.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox4.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox4.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox4.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox4.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox4.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox4.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox4.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox4.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox4.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox4.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox4.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox4.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox4.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox4.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox4.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox4.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox4.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox4.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox4.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox5.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox5.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox5.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox5.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox5.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox5.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox5.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox5.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox5.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox5.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox5.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox5.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox5.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox5.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox5.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox5.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox5.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox5.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox5.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox5.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox5.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox5.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox5.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox5.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox5.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox5.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox5.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox5.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox5.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox5.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox5.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox5.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox5.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox5.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox5.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox5.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox5.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox5.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox5.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox5.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox5.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox5.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox5.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox5.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox5.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox5.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox5.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox5.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox5.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox5.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox5.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox6.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox6.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox6.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox6.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox6.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox6.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox6.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox6.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox6.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox6.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox6.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox6.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox6.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox6.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox6.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox6.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox6.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox6.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox6.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox6.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox6.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox6.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox6.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox6.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox6.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox6.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox6.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox6.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox6.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox6.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox6.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox6.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox6.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox6.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox6.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox6.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox6.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox6.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox6.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox6.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox6.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox6.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox6.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox6.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox6.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox6.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox6.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox6.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox6.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox6.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox6.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox7.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox7.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox7.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox7.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox7.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox7.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox7.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox7.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox7.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox7.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox7.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox7.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox7.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox7.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox7.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox7.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox7.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox7.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox7.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox7.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox7.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox7.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox7.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox7.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox7.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox7.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox7.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox7.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox7.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox7.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox7.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox7.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox7.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox7.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox7.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox7.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox7.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox7.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox7.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox7.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox7.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox7.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox7.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox7.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox7.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox7.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox7.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox7.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox7.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox7.ItemIndex = 50 then Edit17.Text:= '50'


else if ListBox8.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox8.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox8.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox8.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox8.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox8.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox8.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox8.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox8.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox8.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox8.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox8.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox8.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox8.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox8.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox8.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox8.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox8.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox8.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox8.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox8.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox8.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox8.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox8.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox8.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox8.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox8.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox8.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox8.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox8.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox8.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox8.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox8.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox8.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox8.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox8.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox8.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox8.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox8.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox8.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox8.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox8.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox8.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox8.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox8.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox8.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox8.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox8.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox8.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox8.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox8.ItemIndex = 50 then Edit17.Text:= '50'
else label22.Caption := 'Nie znaleziono';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if edit17.Text > '-1' then begin
listbox1.itemindex :=(Strtoint(edit17.text));
listbox2.itemindex :=(Strtoint(edit17.text));
listbox3.itemindex :=(Strtoint(edit17.text));
listbox4.itemindex :=(Strtoint(edit17.text));
listbox5.itemindex :=(Strtoint(edit17.text));
listbox6.itemindex :=(Strtoint(edit17.text));
listbox7.itemindex :=(Strtoint(edit17.text));
listbox8.itemindex :=(Strtoint(edit17.text));
end;
end;

procedure TForm1.RadioButton1DblClick(Sender: TObject);
begin
RadioButton1.Checked := false;
end;

procedure TForm1.Button10Click(Sender: TObject);
   begin
   Edit1.Text :='';
   Edit3.Text :='';
   Edit5.Text :='';
   Edit6.Text :='';
   Edit7.Text :='';
   Edit8.Text :='';
   Edit9.Text :='';
   Edit10.Text :='';
   Edit11.Text :='';
   Edit12.Text :='';

   Checkbox1.Checked := false;
   Checkbox2.Checked := false;
   Checkbox3.Checked := false;
   Checkbox4.Checked := false;
   Checkbox5.Checked := false;
   Checkbox6.Checked := false;

   RadioButton1.Checked := false;
   RadioButton2.Checked := false;

   Combobox1.Itemindex := 0;
   end;
procedure TForm1.Button11Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox6.Items.Count-1 do
 begin
   if pos(lowercase(edit8.text),lowercase(ListBox6.Items[i]))>0 then
   begin
    ListBox6.ItemIndex:=i;
     ////break
   end;
 end;
 end;


procedure TForm1.Button12Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit8.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit8.Text) then LastSearch := LowerCase(Edit8.Text);


for i := Start to ListBox6.Items.Count - 1 do
begin
if pos(LowerCase(Edit8.text), LowerCase(ListBox6.Items[i])) > 0 then
  begin
   ListBox6.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button13Click(Sender: TObject);
begin
listbox1.itemindex := -1;
listbox2.itemindex := -1;
listbox3.itemindex := -1;
listbox4.itemindex := -1;
listbox5.itemindex := -1;
listbox6.itemindex := -1;
listbox7.itemindex := -1;
listbox8.itemindex := -1;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

button12.Click;
button8.Click;
Button9.Click
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
if label22.Caption = 'Nie znaleziono'
 then begin LastSearch := '0';
 label22.Caption := ''
end;

end;
procedure TForm1.Button16Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit1.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit1.Text) then LastSearch := LowerCase(Edit1.Text);


for i := Start to ListBox1.Items.Count - 1 do
begin
if pos(LowerCase(Edit1.text), LowerCase(ListBox1.Items[i])) > 0 then
  begin
   ListBox1.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button16.Click;
Button8.Click;
Button9.Click;

end;
procedure TForm1.Button17Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit5.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit5.Text) then LastSearch := LowerCase(Edit5.Text);


for i := Start to ListBox2.Items.Count - 1 do
begin
if pos(LowerCase(Edit5.text), LowerCase(ListBox2.Items[i])) > 0 then
  begin
   ListBox2.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button17.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button20Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Combobox1.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Combobox1.Text) then LastSearch := LowerCase(Combobox1.Text);


for i := Start to ListBox3.Items.Count - 1 do
begin
if pos(LowerCase(Combobox1.Text), LowerCase(ListBox3.Items[i])) > 0 then
  begin
   ListBox3.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button20.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button23Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit6.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit6.Text) then LastSearch := LowerCase(Edit6.Text);


for i := Start to ListBox5.Items.Count - 1 do
begin
if pos(LowerCase(Edit6.Text), LowerCase(ListBox5.Items[i])) > 0 then
  begin
   ListBox5.ItemIndex := i;
   LastIndex := i;

end;
end;

end;
procedure TForm1.Button22Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button23.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button24Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(RadioButton1.Caption) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(RadioButton1.Caption) then LastSearch := LowerCase(RadioButton1.Caption);


for i := Start to ListBox7.Items.Count - 1 do
begin
if pos(LowerCase(RadioButton1.Caption), LowerCase(ListBox7.Items[i])) > 0 then
  begin
   ListBox7.ItemIndex := i;
   LastIndex := i;
end;
end;
end;
procedure TForm1.Button25Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button24.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button26Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit9.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit9.Text) then LastSearch := LowerCase(Edit9.Text);


for i := Start to ListBox7.Items.Count - 1 do
begin
if pos(LowerCase(Edit9.text), LowerCase(ListBox7.Items[i])) > 0 then
  begin
   ListBox7.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button27Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button26.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button28Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit11.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit11.Text) then LastSearch := LowerCase(Edit11.Text);


for i := Start to ListBox8.Items.Count - 1 do
begin
if pos(LowerCase(Edit11.text), LowerCase(ListBox8.Items[i])) > 0 then
  begin
   ListBox8.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;
procedure TForm1.Button29Click(Sender: TObject);
begin
 Button15.Click;
Button13.Click;

Button28.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.ImiiNazwisko1Click(Sender: TObject);
begin
button18.Click;
end;

procedure TForm1.Adreskorespondencji1Click(Sender: TObject);
begin
button19.Click;
end;

procedure TForm1.Unazwafirmy1Click(Sender: TObject);
begin
button21.Click;
end;

procedure TForm1.Okresubezpieczenia1Click(Sender: TObject);
begin
button14.Click;
end;

procedure TForm1.Skadkapatnajednorazowo1Click(Sender: TObject);
begin
button25.Click;
end;

procedure TForm1.erminpatno1Click(Sender: TObject);
begin
Button27.Click;
end;

procedure TForm1.Nrpolisy1Click(Sender: TObject);
begin
Button22.Click;
end;

procedure TForm1.Przedmiotubezpieczenia1Click(Sender: TObject);
begin
Button29.Click;
end;

procedure TForm1.Usu1Click(Sender: TObject);
begin
button13.Click;
end;

procedure TForm1.Bazadanych1Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
  button1.OnClick := button1.Onclick ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button30.Click;
end;

end.
procedure TForm1.Button5Click(Sender: TObject);
var
  MS : TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('baza.bin');
  MS.ReadComponent(Listbox1);
  MS.ReadComponent(Listbox2);
  MS.ReadComponent(Listbox3);
  MS.ReadComponent(Listbox4);
  MS.ReadComponent(Listbox5);
  MS.ReadComponent(Listbox6);
  MS.ReadComponent(Listbox7);
  MS.ReadComponent(Listbox8);
  MS.Free;
end;
end;

procedure TForm1.Button17Click(Sender: TObject);
var Start, i: integer;
begin
if LastSearch = LowerCase(Edit5.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit5.Text) then LastSearch := LowerCase(Edit5.Text);


for i := Start to ListBox2.Items.Count - 1 do
begin
if pos(LowerCase(Edit5.text), LowerCase(ListBox2.Items[i])) > 0 then
  begin
   ListBox2.ItemIndex := i;
   LastIndex := i;

   Break;
  end;
end;
    end;

procedure TForm1.Button19Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button17.Click;
Button8.Click;
Button9.Click;

end;

procedure TForm1.Button25Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button24.Click;
Button8.Click;
Button9.Click;
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
Button15.Click;
Button13.Click;

Button26.Click;
Button8.Click;
Button9.Click;
end;

end.

Wszystko działało i coś zrobiłem że do każdej procedury wywala błąd:
Unsatisfied forward of external declaration

Proszę o pomoc będę bardzo wdzięczny

Pozdrawiam

0

Wszedłem, zobaczyłem i popłakałem się... :(

else if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
else if ListBox7.ItemIndex = 1 then Edit17.Text:= '1'
else if ListBox7.ItemIndex = 2 then Edit17.Text:= '2'
else if ListBox7.ItemIndex = 3 then Edit17.Text:= '3'
else if ListBox7.ItemIndex = 4 then Edit17.Text:= '4'
else if ListBox7.ItemIndex = 5 then Edit17.Text:= '5'
else if ListBox7.ItemIndex = 6 then Edit17.Text:= '6'
else if ListBox7.ItemIndex = 7 then Edit17.Text:= '7'
else if ListBox7.ItemIndex = 8 then Edit17.Text:= '8'
else if ListBox7.ItemIndex = 9 then Edit17.Text:= '9'
else if ListBox7.ItemIndex = 10 then Edit17.Text:= '10'
else if ListBox7.ItemIndex = 11 then Edit17.Text:= '11'
else if ListBox7.ItemIndex = 12 then Edit17.Text:= '12'
else if ListBox7.ItemIndex = 13 then Edit17.Text:= '13'
else if ListBox7.ItemIndex = 14 then Edit17.Text:= '14'
else if ListBox7.ItemIndex = 15 then Edit17.Text:= '15'
else if ListBox7.ItemIndex = 16 then Edit17.Text:= '16'
else if ListBox7.ItemIndex = 17 then Edit17.Text:= '17'
else if ListBox7.ItemIndex = 18 then Edit17.Text:= '18'
else if ListBox7.ItemIndex = 19 then Edit17.Text:= '19'
else if ListBox7.ItemIndex = 20 then Edit17.Text:= '20'
else if ListBox7.ItemIndex = 21 then Edit17.Text:= '21'
else if ListBox7.ItemIndex = 22 then Edit17.Text:= '22'
else if ListBox7.ItemIndex = 23 then Edit17.Text:= '23'
else if ListBox7.ItemIndex = 24 then Edit17.Text:= '24'
else if ListBox7.ItemIndex = 25 then Edit17.Text:= '25'
else if ListBox7.ItemIndex = 26 then Edit17.Text:= '26'
else if ListBox7.ItemIndex = 27 then Edit17.Text:= '27'
else if ListBox7.ItemIndex = 28 then Edit17.Text:= '28'
else if ListBox7.ItemIndex = 29 then Edit17.Text:= '29'
else if ListBox7.ItemIndex = 30 then Edit17.Text:= '30'
else if ListBox7.ItemIndex = 31 then Edit17.Text:= '31'
else if ListBox7.ItemIndex = 32 then Edit17.Text:= '32'
else if ListBox7.ItemIndex = 33 then Edit17.Text:= '33'
else if ListBox7.ItemIndex = 34 then Edit17.Text:= '34'
else if ListBox7.ItemIndex = 35 then Edit17.Text:= '35'
else if ListBox7.ItemIndex = 36 then Edit17.Text:= '36'
else if ListBox7.ItemIndex = 37 then Edit17.Text:= '37'
else if ListBox7.ItemIndex = 38 then Edit17.Text:= '38'
else if ListBox7.ItemIndex = 39 then Edit17.Text:= '39'
else if ListBox7.ItemIndex = 40 then Edit17.Text:= '40'
else if ListBox7.ItemIndex = 41 then Edit17.Text:= '41'
else if ListBox7.ItemIndex = 42 then Edit17.Text:= '42'
else if ListBox7.ItemIndex = 43 then Edit17.Text:= '43'
else if ListBox7.ItemIndex = 44 then Edit17.Text:= '44'
else if ListBox7.ItemIndex = 45 then Edit17.Text:= '45'
else if ListBox7.ItemIndex = 46 then Edit17.Text:= '46'
else if ListBox7.ItemIndex = 47 then Edit17.Text:= '47'
else if ListBox7.ItemIndex = 48 then Edit17.Text:= '48'
else if ListBox7.ItemIndex = 49 then Edit17.Text:= '49'
else if ListBox7.ItemIndex = 50 then Edit17.Text:= '50'

I dalej w tym bajzlu kodu nie miałem siły czytać :]

BTW: wyłączyłem formatowanie delphi, bo coś nam się parser sypie...

Błąd Unsatisfied forward of external declaration oznacza, że masz gdzieś zadeklarowaną procedurę, a nie masz jej w kodzie - szukaj - kompilator ma zwyczaj podświetlać linię, w której napotkał problem...

Zamiast tasiemca

if ListBox7.ItemIndex = 0 then Edit17.Text:= '0'
//...
//..

Możesz napisać np.

Edit17.Text := IntToStr(ListBox17.ItemIndex);

Co przypisze do edita indeks zaznaczonej pozycji z listbox'a

I oczywiście ten kod można jeszcze bardziej uprościć, ale to tak na początek - może wtedy da się to czytać...

3

Proponuję zbanować typa za spamowanie prywatnymi wiadomościami. I za c**** kod.

2

Póki nie podasz informacji o tym, gdzie wyrzucany jest ten błąd, to nikt Ci nie pomoże. I nie spamuj.

0

błąd wyrzuca przy

procedure Button3Click(Sender: TObject);

jak usunę jego całą procedurę to wyrzuca przy następnym i tak w kółko

Pokazuje tak jakbym miał zaznaczone wszystkie procedury a wcale nie miał ani jednej wpisanej... ;(

co to znaczy nie odpowiednio, do tej pory działało tylko w pewnej chwili przestało, jak zacząłem się bawić z drugą formą ( form5) i timer'em ale to chyba nie ma nic do rzeczy

0

Tu:

procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X) // BRAK SREDNIKA !
end;
0

nic nie dało, nadal ten sam błąd i pokazuje tą samą linijkę

Dodam że po kliknięciu na którykolwiek button wywala okienko z :
Cannot find implementation o method

0

Może tak:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';
 
 
       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X)
end;
 
end. // CO TO ZA END. ?!?!?!?!?!
 
 
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, // CZEMU TU JEST DRUGI RAZ TO SAMO ?!
  Y: Integer);
begin
if checkbox1.Checked = true then edit2.text :='1';
  if checkbox2.Checked = true then edit4.text :='1';
    if checkbox3.Checked = true then edit12.text :='1';
     if checkbox4.Checked = true then edit13.text :='1';
      if checkbox5.Checked = true then edit14.text :='1';
       if checkbox6.Checked = true then edit15.text :='1';
 
 
       if checkbox1.Checked = false then edit2.text :='0';
  if checkbox2.Checked = false then edit4.text :='0';
    if checkbox3.Checked = false then edit12.text :='0';
     if checkbox4.Checked = false then edit13.text :='0';
      if checkbox5.Checked = false then edit14.text :='0';
       if checkbox6.Checked = false then edit15.text :='0';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 
A, B, C, D, E, F, X: Extended;
 
begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);
 
 X := A+B+C+D+E+F;
 
 edit16.Text :=FloatToStr(X)
end;
0

Czlowieku, wez sie ogarnij.... a potem ogarnij ten kod.

0

a co zamiast tego end. ? ( do tej pory działo )

0

W ogóle wiesz co robisz? Czy tak sobie po prostu klikasz i wpisujesz kod gdzie popadnie???

end.

oznacza koniec programu - co KONIEC PROGRAMU robi w ŚRODKU PROGRAMU???

1

wiem też mnie to dziwiło, ale tak działało....
jak zamiast end. wpisze end; to się czepia

0

Proszę tylko o wyprowadzenie mnie z błędu bo chciałbym na niskim bo niskim ale jednak poziomie skończyć ten program, wydaje mi się że coś jest pokręcone z deklaracjami bo ogólnie kod działał.

Ile end; powinno być przy tej procedurze?

procedure TForm1.Button2Click(Sender: TObject);
var

A, B, C, D, E, F, X: Extended;

begin
A := StrToFloat(edit2.text);
B := StrToFloat(edit4.text);
C := StrToFloat(edit12.text);
D := StrToFloat(edit13.text);
E := StrToFloat(edit14.text);
F := StrToFloat(edit15.text);

X := A+B+C+D+E+F;

edit16.Text :=FloatToStr(X);
end;

0

No on sobie w kulki leci. Nie usunal zdublowanych metod, nie dopisal srednika, nie usunal "end.".... bez jaj. Nie chce mi się już "pomagać", skoro on lekceważy to, co ludzie mu mówią (mowa o projekcie, który zuploadował).

0

dobrze już wiem że nie usunąłem, spakowałem nie ten najnowszy tylko wcześniejszy... przepraszam

0

A zatem jaki jest aktualny błąd ? Gdzie on występuje ? I gdzie jest nowa wersja kodu ? (ja obstawiam, że na razie wystarczy wrzucenie na pastebin kodu i podanie linka)

0

dobra szczerze nie wiem jak i nie wiem dlaczego miałem niektóre procedury podwójnie pousuwałem była jedna deklaracja procedury nie używana posuwałem i o dziwo DZIAŁA.

Dzięki za wytrwałość

Pozdrawiam

0

Hmmm, :/

norbert95 napisał(a)

Pousuwałem błędy z programu i o dziwo teraz działa

Gratulacje :]

0

A mogę pytanko na szybko ?

Jak wyciągnąć z którego listbox'a (mam ich 6) jest zaznaczony item , umiem wyciągnąć numer linii ale jak wyciągnąć ktory to listbox ?

0

Sprawdzasz czy ItemIndex jest większy od minus jeden. Poza tym mając sześć ListBoxów możesz się przecież odwołać do nich po nazwie we własności Name np ListBox3. Ewentualnie mieć te ListBoxy w tablicy albo TList albo TObjectList, jak Ci wygodniej. Więcej na ten temat znajdziesz w google. O ile dobrze zrozumiałem co chcesz zrobić.

0

OK dzięki jeszcze raz ;)

Jesteście KOzaki

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto