type TForm1 = class(TForm) ICQDb1: TICQDb; Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Button1: TButton; ListBox1: TListBox; ListBox2: TListBox; procedure Button1Click(Sender: TObject);