procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex];
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.