[ART]

procedure TForm1.CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_F3 then begin
listbox1.items.LoadFromFile(checklistbox1.Items.St rings[CheckListBox.ItemIndex]);
end;
end;