Зчитування інформації

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

var s: string;

begin

{Додавання URL в список}

s := InputBox('Добавить','Введите URL:','');

if s <> '' then

ListBox1.Items.Add(s);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

{Видалення виділеного URL із списку}

if ListBox1.ItemIndex >= 0 then

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i: Integer;

begin

{Перевірка на існування каталога}